Escape keypress action

[Andrew_LEJOG]

I have a potentially time consuming loop in a macro, within which I would like to give the user the option of pressing the ESCAPE <ESCAPE><ESCAPE>button which would then run another section of code (see the code below).

I would have thought that the Application.OnKey method would achieve this but nothing seems to happen when I press <ESCAPE>.

If anyone can suggest a solution, I would be very grateful.

Sub t()
MsgBox "Escape pressed"
End Sub

Sub Macro1()
For x = 1 To 100000
Application.OnKey "{ESC}", "t"
Next x
End Sub

Many thanks.

Andrew.

 

[Andrew Poulsom]

Look here:

http://www.dailydoseofexcel.com/archives/2007/05/22/enablecancelkey/

 

[Andrew_LEJOG]

Many thanks Andrew Poulsom for your reply. It put me along the right lines.
In fact I'll probably use some code along the following lines:

Sub test()
On Error GoTo handleCancel
Application.EnableCancelKey = xlErrorHandler
MsgBox "This may take a long time: press ESC to cancel"
For x = 1 To 500000000 ' Do something 1,000,000 times (long!)
' do something here
Next x
MsgBox "Finished"
Exit Sub
handleCancel:
If Err = 18 Then
MsgBox "You cancelled"
End If
End Sub


Many thanks again.

Andrew_LEJOG