CommandButton beim kopieren entfernen

Private Sub Bestellung_Click()
Dim Nachricht As Object, OutApp As Object
    Dim SavePath As String
    Dim AWS As String
    SavePath = "C:\Dokumente und Einstellungen\PC\Eigene Dateien\Bestellungen" '" Pfad muß angepasst werden"
    Set OutApp = CreateObject("Outlook.Application")
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") & ".xls"
    AWS = ActiveWorkbook.FullName
    Set Nachricht = OutApp.CreateItem(0)
    With Nachricht
        .To = "xyz@nichts.de"
        .Subject = "Bestellung Warenausgabe " & Date & Time
        .Attachments.Add AWS
        .HTMLBody = "Sehr geehrter Herr xyz," & vbCrLf & "anbei unsere Bestellung." & vbCrLf & "Mit freundlichen Grüssen Firma 123"
        .Display
        .Send
         ActiveWorkbook.Close
    End With
    OutApp.Quit
    Set OutApp = Nothing
    Set Nachricht = Nothing
End Sub
Private Sub Teilebestellung_drucken_Click()
Dim SavePath As String
SavePath = "C:\Dokumente und Einstellungen\PC\Eigene Dateien\Bestellungen"
ActiveSheet.Copy
    ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") & ".xls"
    Variable = Application.Dialogs(xlDialogPrint).Show
    ActiveWorkbook.Close
End Sub