How to use ESC key to break the loop?

Question

When ESC key press on 1st time, waitTime disable as graph just scroll without the delay.
When ESC press the 2nd time, Error message "Code execution has been interrupted" > [Continue], [End], [Debug]   
Would like when ESC key press, it will stop the Graph display loop and back to the UserForm.

Do While jj < ii + 1
Application.OnKey "{ESC}", "goto BreakHandler"
Sheets(Graph(jj)).Select
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
jj = jj + 1
If jj >= ii Then jj = 1
Loop

Answer 1

The solution lies in multi-threading . You can check the following thread for more:

http://social.msdn.microsoft.com/Forums/en-US/vsto/thread/735c8f26-2129-4b46-8c1a-aad385cab2ed

---

http://www.vbadud.blogspot.com