Doppelabfragen ?
03.11.2002 21:04:48
Udo
wie stelle ich eine Doppelte Abfrage ein.
Sub Drucken()
a = MsgBox("Wollen Sie wirklich Drucken.............................?", vbYesNo)
If a = 7 Then Exit Sub
' Nein wurde gedrückt, besser wäre Ja abfragen, man kann auch das X drücken
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Danke Udo