mehrere Blätter in andere Mappe kopieren

Sub TabellenblattKopieren()
Dim strPfad As String, strName As String
With Sheets("Eingabemaske")
strPfad = .Range("A54")
strName = .Range("Lieferung") & " " ' & ".xls"
End With
If Right(strPfad, 1)  "\" Then strPfad = strPfad & "\"
ActiveSheet.Copy
ActiveSheet.Unprotect
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Shapes.Range(Array("Button 1", "Button 2", "Button 3")).Select
Application.CutCopyMode = False
Selection.Delete
Call DeleteAllNames
ActiveWorkbook.SaveAs strPfad & strName & ActiveSheet.Name & ".xls"
Dim Mldg$
End Sub