1004RangeクラスのPasteSpecialメソッドが失敗

1004RangeクラスのPasteSpecialメソッドが失敗というエラーが発生してしまいます。

以下の構文です。

SheetName＝!シート名！
Set worksheet ＝Nothing
On error Resume Next
‘シート名が指定されない場合はアクティブシートを対象とする
if sheetName ＝ “” Then
Set worksheet ＝workbook. Activesheet
Else
Set worksheet ＝ workbook . Worksheets(sheetName)
End if
On Error Goto 0
If worksheet Is Nothing then
Err.Raise 1,””,”指定されたシートが見つかりません”
End if
worksheet.Activate
‘指定された範囲をクリップボードへコピー
cell ＝！セル！
On Error Resume Next
cnt ＝ worksheet.range(cell).Count
On Error Goto 0
‘指定された範囲が有効か確認
If cnt ＝””Then
Err.Raise 1,””,”指定された範囲が無効です。”
End if
‘ペースト
Worksheet.range(cell).Pastespecial

足りない部分があれば教えて欲しいです。
よろしくおねがいします。

質問者からの補足コメント

• 

  質問を見ていただきありがとうございます。
  シートの保護のことでしたら特に設定はしていません。

  No.2の回答に寄せられた補足コメントです。 補足日時：2018/09/11 20:38

No.1 回答者： よろずやkinchan 回答日時： 2018/09/09 14:52

＞‘指定された範囲をクリップボードへコピー

に該当する命令が見当たりませんが...

No.2 ベストアンサー 回答者： hotosys 回答日時： 2018/09/11 01:55

シートをプロテクトしてませんか?