スキルアップ・問題解決なら、モーグにおまかせ！

新規ブック追加時のシート枚数はメニューの“ツール”−”オプション”から”全般”タブで”新しいブックのシート数”を指定することが出来ます。
サンプルではこの機能を一時的に変更してブック追加時のシート枚数を調整します。

'=======標準モジュール========

Sub ChageNumofNewSheets()

    Dim Temp As Integer
    Dim WB As Workbook
    Dim Num As Integer
    
    '数値型変数に現在の指定値を格納
    Temp = Application.SheetsInNewWorkbook
    
    Num = Application.InputBox("新規ブックのシート枚数を指定", Type:=1)
    '新規ブック追加時のシート枚数を変更
    Application.SheetsInNewWorkbook = Num
    '信金ブックを追加し、シート数を確認
    Set WB = Workbooks.Add
    MsgBox "シートの数は" & WB.Sheets.Count & "枚です"
    
    '設定を元に戻す
    Application.SheetsInNewWorkbook = Temp

End Sub