Dave, thanks for staying with me on this. I do realize that I'm looking for
the Esc key absurdly, but I just wanted to run a test, and this way it
pauses long enough to allow me to hit the Esc key, while interrupting the
delay if I do so, for simplicity. I won't actually be using it this way in
my code. Seems to work fine. My main concern was what effect the
Application.EnableCancelKey would have on the error trapping in the calling
routine. Thanks again, James
"Dave Peterson" wrote in message
...
You're actually looking for that escape key each cycle in that
loop..10000000
times!

Take one more look at that example in help and you'll see that when you
hit the
escape key, it interrupts the code preemptively. There's no need to check
for
that escape key each time through the loop.



Zone wrote:

Dave, Thank you. Help goes to some length to explain that there are
implications to using EnableCancelKey, so apparently it should only be
used under controlled conditions to keep the Esc and Ctrl-Break keys
functional. I thought one way to do this was to use in a function. I
don't know the effect on the error trapping status of the calling
routine, though. See any problem with this code?
Seasons Greetings, James

Sub TryThis()
Dim j As Long
On Error Goto Problem
For j = 1 To 10000000
If LookForEsc() = True Then
MsgBox "You pressed Esc"
Exit Sub
End If
Next j
Problem:
End Sub

Function LookForEsc() As Boolean
LookForEsc = False
On Error GoTo handleCancel
Application.EnableCancelKey = xlErrorHandler
handleCancel:
If Err = 18 Then
LookForEsc = True
End If
End Function
Dave Peterson wrote:
How about a different key -- the ESC key???

If yes, take a look at Application.EnableCancelKey in VBA's help.

Zone wrote:

I have a long looping macro I'd like the user to be able to exit by
pressing
the Spacebar. I'd like to accomplish this without the big overhead
usually
associated with API calls. Any simple (short) way to do this?
Probably a
wierd question! But thanks and happy holidays! James

--

Dave Peterson

--

Dave Peterson