範囲ペースト特殊結果がエラー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