Attribute VB_Name = "testapplicaiotnother6"
Sub テスト()

    MsgBox "デフォルトで" & Application.SheetsInNewWorkbook & "枚作成されます"

    Application.SheetsInNewWorkbook = 2
    
    Workbooks.Add
    
End Sub