VBAの関数内でエラ1004が出てしまう

Question

VBAについて

VBAで事務作業を効率化しようとしているのですが、このコードの

Cells.Select

の行でエラー1004が出てしまうのですが、これはVBAの文法エラーでしょうか？

'納品書シートを初期化する
Function nouhinshoRenewal()

    Sheets("納品書").Select
    Cells.Select
    Selection.ClearContents
    Sheets("新・納品書").Select
    Cells.Select
    Range("A3").Activate
    Selection.Copy
    Sheets("納品書").Select
    Range("A1").Select
    ActiveSheet.Paste


End Function

Comments

[y_waiwai]

エラーメッセージを提示しましょう

[ttyp03]

このコードはどこに置いていますか？
シート？標準モジュール？フォーム？

[stdio]

Sheets("納品書")にActiveSheetとは、呆れてしまって、ため息も出ません。
ブレイクポイントが貼れるのですから、一つ一つ丁寧にデバックして下さい。

[退会済みユーザー]

VBEに書いています。
エラ〜メッセージは
「アプリケーション定義またはオブジェクト定義のエラーです。」
になります。
VBAを使うのが今回初めての試みでして文法の漏れなども多々あるかと思います。ご容赦ください

[ttyp03]

VBEのどの場所かってことなんですが・・・

[退会済みユーザー]

すみません！
VBAプロジェクト-MicroSoftExcelオブジェクト-Sheet2
の場所に書いています

Answer 1

Cells.Select

は、
マクロを書いたモジュールのシートの全部のセルという意味になります。
で、セルの選択はアクティブなシートのセルしか選択できません。
なので、該当モジュールがアクティブになってないという事だと思います。

ちなみに、セルの位置はコードに書いてあるので、
選択してエクセル君に伝えるというようなことはしなくていいので、
以下のような感じでいいかなと思います。

Sub test()
    Dim wshTo As Worksheet
    
    Set wshTo = Worksheets("納品書")
    
    wshTo.UsedRange.ClearContents
    Me.UsedRange.Offset(2).Copy wshTo.Range("A1")
End Sub

Answer 2

こちらで再現確認をしてみましたが、通常のシート構成であればエラーは発生しませんでした。
何か特殊なシート設定になっていないでしょうか？
こちらで確認できたのではシートを保護し何も権限を与えていないときにはエラー1004が出ました。
但しこの場合エラーの理由が表示されてしましたので、さすがにそれが出ればわかりますよね？ってことで別の理由がありそうな気がします。