Message if macro is unable to run

[Adrae]

Does anyone have sample code of how I could replace the normal "debug me" dialog box with an error message of my choosing that would be followed by the macro stopping with no option to debug at that point?

[Al Chara]

How about something simple like:

On Error GoTo 1
1 MsgBox "Error has occurred"

[Adrae]

Thanks. That works for the messgae box, but if the error is just crucial, the macro continues all the way through to the Msg box that says the change was successful.

How can I modify this code so that it diplays the message and then Ends?

Thanks again

[NateO]

Placement is key:

Sub examp()
On Error GoTo 1
'your code here
Exit Sub
1 MsgBox "Error has occurred"
End Sub

Hope this helps.

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-04-03 08:30 ]

[Al Chara]

Forgot some lines, use the following setup:

Sub YourMacro()
On Error GoTo 1
'insert your code
1 MsgBox "Error has occurred"
End Sub

[NateO]

You'll probably want the "exit sub" (like above) too, I think, in the event that the end-user doesn't completely botch your process.

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-04-03 08:57 ]

[Al Chara]

Good point, NateO.