Excel VBAで新規ブックのシート数を指定して作成

Workbooks.Addで指定シート数の新規ブックを作ろう

「最初からシート数を指定したい」というときに役立つのが

Application.SheetsInNewWorkbook です。

基本構文：

Sub CreateBookWithSheets()
    Application.SheetsInNewWorkbook = 3   ' 新規ブックは3シートで作成
    Workbooks.Add
    Application.SheetsInNewWorkbook = 1   ' 必要なら元に戻す
End Sub

ポイント：

・ Application.SheetsInNewWorkbook で新規ブックのシート数を設定

・ 実行後は元に戻すのが安全