Löschen von AutoForm und Makro beim Speichern

Private Sub Teilebestellung_drucken_Click()
Dim SavePath As String
Dim tb As Object
Dim Shp As Object
SavePath = "C:\Dokumente und Einstellungen\PC2\Eigene Dateien\Bestellungen"
    'Kopiert die aktuelle Tabelle
    ActiveSheet.Copy
    'Löscht die CommandButton
    For Each Shp In ActiveSheet.Shapes
        If Shp.Type = 12 Then Shp.Delete
    Next
    'Löscht die AutoForm
    For Each tb In ActiveSheet.Shapes
    tb.Delete
    Next
    'Speichert die Datei unter dem Tabellennamen und das aktuelle Datum mit UIhrzeit
    ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") & ".xls"
    Variable = Application.Dialogs(xlDialogPrint).Show
    'ActiveSheet.PrintOut  druckt auf Standarddrucker
'Sheets("Teilebestellung").Activate läßt Tabelle offen
ActiveWorkbook.Close 'schließt kopierte Tabelle wieder
End Sub