使用sheet（）。cells（）格式使用其他工作表操作单元格

Question

我需要在其他工作表的单元格中加上值的迭代工作表，“工作表”的名称保存在工作表（）中.index = man_prov并且我迭代它。代码有效，但出现了一个窗口，它要求“刷新值到表格”，目标单元格值最终是“＃¿NAME？”。代码是：

For k = pfila_mprov + 1 To ufila_mprov

    sn = Sheets(man_prov).Cells(k, 2)
    h = Sheets(sn).Index

    Select Case k
    Case ufila_mprov
        suma = suma & " " & Sheets(h).Name & "!" & Sheets(h).Cells(4, 4).Address & ""
    Case Else
        suma = suma & " " & Sheets(h).Name & "!" & Sheets(h).Cells(4, 4).Address & ","
    End Select

Next k

Sheets(pro_pack).Cells(16, 4).Formula = "=sum(" & suma & ")"

End If

我需要使用格式表（）。cell（）进行迭代，最后加上“suma”中保存的值。 感谢。