Valami hasonlóra gondoltál?

Sub UjMunkafuzet()
Dim MunkaLapokSzamaMost As Long
Dim MunkaLapokSzama As Long
Dim MentesHelye As String
Dim MentesNeve As String

  MentesHelye = "C:\mappaneve\"
  MentesNeve = "munkafuzetneve.xls"
  MunkaLapokSzama = 5

 With Application
    MunkaLapokSzamaMost = .SheetsInNewWorkbook
    .SheetsInNewWorkbook = MunkaLapokSzama
  End With
 
  Workbooks.Add
  ActiveWorkbook.SaveAs Filename:=MentesHelye & MentesNeve
 
  Application.SheetsInNewWorkbook = MunkaLapokSzamaMost
 
End Sub