De még azzal is lehet játszani, hogy a beállításoknál meg lehet adni az új munkafüzetekben létrehozandó munkalapok számát.:

 

Sub qwerwer()

  With Application

        .DefaultFilePath = "Elérési út"

        .SheetsInNewWorkbook = 5

    End With

    'visszaállítás, mert egyébként úgy marad:

    Workbooks.Add

        With Application

        .DefaultFilePath = "Elérési út"

        .SheetsInNewWorkbook = 3

    End With

End Sub