ExcelVBA：新規ワークブックを作成し、ワークシートを3枚作る方法

質問

ExcelVBAで質問があります。
設定で新規作成時ワークシート3枚としているなら問題ないのですが、それ以外の枚数に設定している場合で、新規のワークブックを作成し、ワークシートを3枚作成するコードを作りたいのですが、以下のようにするとエラーが出ます。エラーは「コンパイルエラー：名前付き引数が見つかりません。」です。

Workbooks.Add Count:=3

このエラーをなくし、新規作成でワークシート3枚（枚数は変わるかもしれません）作るにはどうしたらよいのでしょうか？
回答よろしくお願いします。

回答No.2

n-jun · ベストアンサー

Dim n As Long

n = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 3
Workbooks.Add
Application.SheetsInNewWorkbook = n
参考にはこっちの方がいいかな？

お礼

なるほど。新規作成時の設定でワークシートの数を変えてやればいいわけですね。
大変参考になりました。
ありがとうございました。

回答No.1

n-jun

Application.SheetsInNewWorkbook = 5
Workbooks.Add
Application.SheetsInNewWorkbook = 3
もともと３枚だったのを、一旦５枚に設定して新しいブックを作り、
また３枚に戻す。
ご参考になれば。

お礼

今更ですが、お礼の記載が大変遅くなり、申し訳ありません。

ありがとうございました。