Copy multiple sheets in new Workbook

Sub NeuesArbeitsblatt()
Dim Quelle As Workbook
Dim Ziel As Workbook
'Quelle und Ziel definieren
Set Quelle = ThisWorkbook
Set Ziel = Workbooks.Add
'Tabelle übertragen
Quelle.Worksheets(Array(1, 2, 3, 4)).copy before:=Ziel.Worksheets(1)
'Warnmeldung ausschalten
Application.DisplayAlerts = False
'Neue Mappe Speicher
Ziel.SaveAs ThisWorkbook.Path & "\Ausgabe.xlsx"
Ziel.Close
Application.DisplayAlerts = True
End Sub