范围粘贴错误1004中的特殊结果

Question

我有相当大的代码，但唯一失败的是粘贴之前复制的行。

Dim WB_start As Workbook
    Set WB_start = ThisWorkbook
Dim WB_active As Workbook
Dim WSS As Worksheet
Set WSS = WB_active.Worksheets("Samenvatting")
    WSS.Unprotect ("SECRETSTUFF")

    MsgBox (WB_start.Name & " - " & WB_start.Worksheets(1).Name)

    WB_start.Worksheets(1).Range(WB_start.Worksheets(1).Cells(8, 9), _
           WB_start.Worksheets(1).Cells(13, 12)).Copy

    MsgBox (WB_active.Name & " - " & WSS.Name)

    WSS.Range(WSS.Cells(8, 9)).PasteSpecial xlPasteFormulas

这里的最后一行给出了臭名昭著的1004错误。“对象工作表的方法范围失败”。我知道这通常意味着某些东西并不是完全合格的，但我不知道那可能是什么。我已经插入了消息框，它们显示了预期的工作簿和工作表名称。

Answer 1

改变你的路线：

WSS.Range(WSS.Cells(8, 9)).PasteSpecial xlPasteFormulas

至：

WSS.Cells(8, 9).PasteSpecial xlPasteFormulas