Application.EnableCancelKey = xlErrorHandler not working

[sparky2205]

I have a macro to delete worksheets.
The first step is to select the worksheet name.
The user is presented with a popup list of worksheet names
At this point I want to give the user the option to press Esc and quit the operation.
This is how I had hoped to achieve this (partial code):

Sub Delete_Worksheet()
On Error GoTo errhandler
Application.EnableCancelKey = xlErrorHandler
Application.CommandBars("Workbook tabs").ShowPopup
[B].
.
.
.[/B]
errhandler:
    End
End Sub

The problem is

Application.EnableCancelKey = xlErrorHandler

doesn't appear to work as after the Esc key is pressed the code continues to execute i.e. it does not jump to errhandler.
Hopefully I'm making some basic mistake that you can point out to me.
Note: Ctrl+Break does work.

 

[sparky2205]

I got this sorted. The code below is partial but these are the important bits.
Through a mix of Option Explicit, Application.EnableCancelKey = xlErrorHandler, errhandler and the ThisWorkbook.Protect.
I'll admit I don't fully understand the solution I've come to but it does work.
At one point execution was alternately protecting and unprotecting my worksheet. I overcame this by playing around with the ThisWorkbook.Protect, which is why there might appear to be more of those statements than necessary.
I'm posting this as a solution to my initial problem in case it may be of use to someone else.

Option Explicit

#If VBA7 Then
Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#Else
    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#End If

On Error GoTo errhandler
Application.EnableCancelKey = xlErrorHandler
Application.CommandBars("Workbook tabs").ShowPopup
If CBool(GetKeyState(VBA.vbKeyEscape) And &H10000) Then
        ThisWorkbook.Protect Password:=pw
        Application.DisplayAlerts = True
        GoTo errhandler
End If

Exit Sub

errhandler:
    If Err.Number = 18 Then
        ThisWorkbook.Protect Password:=pw
        Application.DisplayAlerts = True
    End If
    ThisWorkbook.Protect Password:=pw
    Application.DisplayAlerts = True

End Sub