Dialog schließen, auch EXCEL

habe folgendes Schließenmakro:

Sub A_NWDlg_schließen()
Application.ScreenUpdating = False
Dim NWDlg As Object '=Bearbeitungsdialog
Set NWDlg = DialogSheets("NWDlg")
' Application.Visible = False

NWDlg.Hide
' Application.Visible = Sheets("Prov-Blatt").Select
Range("c1").Select

Application.Visible = True
Application.ScreenUpdating = True
End Sub

Ich möchte , wenn ich den Button im selbsterstellten Dialog (Excel7) drücke das auch Excel kompl. geschlossen wird aber wie ?
Das sollte auch funktionieren, wenn ich im Dialog das Kreuz oben rechts anklicke !
Die Button - Steuerung steht auf Schließen !

Herzlichen Dank im voraus
Gruss Walter