on Open Makro untrebrechen

Private Sub Workbook_Open()
Dim ZAHLDAT As Date
Dim IDAT As Date
Application.MaxChange = 0.001
With ActiveWorkbook
.PrecisionAsDisplayed = False
.Date1904 = True
ZAHLDAT = Range("b" & Range("i65536").End(xlUp).Row).Value
ZAHLDAT = ZAHLDAT - 7
IDAT = Date
If ZAHLDAT 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.MaxChange = 0.001
With ActiveWorkbook
.PrecisionAsDisplayed = False
.Date1904 = False
End With
End Sub

Das klappt auch, allerdings möchte ich nun dem Anwender die Möglichkeit geben das On open Makro bei einem bestimmten Tastendruck abzubrechen indem ich auf die TASTE abfrage.
Geht sowas und wenn ja wie!
Vielen Dank im Vorraus!
Gruß
Lothar