Debug Error

[Todd Huttenstine]

Hey guys,

When I am running a particular code (loop code) and I stop
it, I get a debug error. I would prefer to get a
messagebox saying "Program Stopped!"

How would I do this?

I was thinking maybe with a label?

Thanx

Todd Huttenstine

 

[Rob van Gelder]

I came across this article which should work:
http://groups.google.co.nz/groups?hl=en&lr=&ie=UTF-8&oe=UTF-8&[email protected]

Sub noesc()
'set it up so if user hits esc, you send it to error handler
Application.EnableCancelKey = xlErrorHandler
On Error GoTo 1
While True
ActiveCell.Offset(1).Select 'press esc here
Wend
Exit Sub
1:
MsgBox "You pressed esc"
End Sub

 

[Todd Huttenstine]

Well the user really wont hit Esc, they will just hit
cancel on an Outlook Email Dialog screen. I want it to be
something like this logic....


On Error GoTo Problem:
Problem:
MsgBox "Program Stopped!"
Exit Sub

Is this possible? RIght now if I put that in my code it
will run through that code and exit sub.


Thanx

 

[Rob van Gelder]

Looks good to me

Well the user really wont hit Esc, they will just hit
cancel on an Outlook Email Dialog screen. I want it to be
something like this logic....


On Error GoTo Problem:
Problem:
MsgBox "Program Stopped!"
Exit Sub

Is this possible? RIght now if I put that in my code it
will run through that code and exit sub.


Thanx