Stop a loop

Hi,

I have a macro which simply pages through a number of sheets as in:

Line1:
Sheets("1").select
Application.Wait Now + TimeValue("00:00:10")
Sheets("2").select
Application.Wait Now + TimeValue("00:00:10")
Sheets("3").select
Application.Wait Now + TimeValue("00:00:10")
goto Line1

What I would like to be able to do is to just press any key to stop the macro without getting the "code execution has been interrupted" message box. I can recall seeing other posts on this topic a while ago, but now that I need it, I can't locate them. Can anyone help?

Thanks
Mat

Public Sub SomeMacro()

On Error GoTo PROC_EXIT

Application.EnableCancelKey = xlErrorHandler

' Code that possibly contains a Loop

PROC_EXIT:
Exit Sub

End Sub

Hitting ESC or Ctl-Break will interrupt the loop and transfer control to your error handler which tehn simplu exits the macro