In diesem Beispiel wird gezeigt, wie mit der EnableCancelKey-Eigenschaft eine benutzerdefinierte Abbruchbehandlung eingerichtet werden kann.
On Error GoTo handleCancel Application.EnableCancelKey = xlErrorHandler MsgBox "This may take a long time: press ESC to cancel" For x = 1 To 1000000 ' Do something 1,000,000 times (long!) ' do something here Next x handleCancel: If Err = 18 Then MsgBox "You cancelled" End If