ich habe folgendes Makro:
Sub speichern()
Sheets(Array("Deckblatt", "Schwein", "Rind_Kalb_Gefl_Inner", _
"Hackflle_Bratw_Brühw", "Brühwurst", "Rohwurst", "Ordersatz")).Copy
pfad = "I:\Como\Emailversand\"
datei = InputBox("Bitte geben Sie gültigen Monat an", , "z.B.:Juli2003")
Datei1 = "" & datei & ".xls"
ActiveWorkbook.Sheets("Deckblatt").Activate
ActiveSheet.Shapes("Button 4").Select
Selection.Delete
ActiveWorkbook.SaveAs Filename:=pfad & Datei1
ActiveWorkbook.Close
End Sub
nur werden die Buttons nicht gelöscht!!!!!!!
Wer Kann mir helfen???