{Esc} out of loop

Here's what I would like to do:

Run a sub with Application.OnTime that beeps once a second for 60 seconds (so if I'm not next to my computer, I will hear it beeping and check it out).
Then when I press the {Esc} key the beeping will stop. It can be some other key - I use {Esc} because it's intuitive to press it to get out of something.

Here's how I have it working now.

Please Login or Register  to view this content.

This works ok EXCEPT when I'm working in another workbook when the "beeper" goes off. The {Esc} gets sent to the activeworkbook, not the one that has myBeeper() in it, and I can't change to the "beeper" workbook, so I have to wait the whole 60 seconds for myBeeper() to finish.

Hey foxguy, you're making me laugh. I don't see a question mark anywhere in your above post. Did you have a question sir?

I think this is all a part of windows being able to multitask. When you press ESC which application is supposed to service it?

DLL, Romper, snb or Leith are your best bet on this question.

Your beep sub needs to use application.onkey to assign a macro to the ESC key. All that macro needs to do is set a boolean variable which gets checked inside your loop. I'd also add doevents inside the loop.

Hi Romper;

Thanks. I never thought of assigning a macro to a key.


Hi Marvin;

When my beeper is running I want the workbook that contains the sub to service the {Esc}. Which was my problem, I couldn't figure out how to get a workbook in the background to grab the {Esc} away from the activeworkbook, so I was stuck waiting for the macro to end. Hopefully Romper's idea will solve my problem.