VBA - Escape Key and Error Handler

[vba_monkey]

Hello,

I am trying to get excel to go to my error handler if Esc is pressed whilst the macro is running. This is what I have so far but when I press Esc, Excel goes to the error handler and breaks on the first line with error 'User interrupt occurred' instead of running through the code in the error handler:

On Error GoTo Error_Handler

Application.EnableCancelKey = xlErrorHandler

Error_Handler:
If Err = 18 Then
    MsgBox "Macro exited...", vbExclamation, "Stopped!"
Else
    Debug.Print "Line: " & Erl & "  Desc: " & Err.Description
    MsgBox "An error occurred, exiting macro...", vbCritical, "Error!"
End If
End Sub

Any ideas please?

 

[daverunt]

Hi,

works ok for me. I copied and pasted as is in case there were typos. I get the MsgBox 'Macro exited... when pressing Esc.
I use the Application.EnableCancelKey right at the start of the sub and the Error_Handler code is the last block before End Sub.

 

[vba_monkey]

I have it set out the same but still not working. I have tried it in another workbook and it does work so it must be workbook specific. Can anyone think of what may be stopping it from working?

 

[vba_monkey]

Bump

Now posted here as well:

VBA - Escape Key and Error Handler