Error Handling - Show Message Box and then stop remaining code

[gmooney]

Hi, I would like to throw a message box up if an error is encountered in the code that instructs the user to call or email me. Therefore I want to the code to stop after they click on OK for the message box.

How can I do this?

 

[Michael M]

Please post the code you are currently using.

 

[Crystalyzer]

'Place this near the top of the code before processing begins
On Error GoTo ErrHandler


'place this at the end of the code with no code after it
ErrHandler:
    MsgBox "Error Message please email me@gmail.com", vbOKOnly, "***ERROR***"
    On Error GoTo 0

 

[gmooney]

Thank you.....This gets me closer.

One thing I didn't mention that makes this slightly more challenging.

This code is in Excel.

Part of that code goes over to open up a PPT file and once that PPT file is open it starts to run code in the PPT.

Therefore that error actually happens in the PPT file.

Based on this error being captured in the PPT file I have used your code in the code area that is running when the PPT is doing it's thing. The problem now is that PPT is in the background while Excel is in forefront and the dialog box comes up behind Excel and the user doesn't know there was an error message. I tried to put an AppActivate statement back to the Excel file right before the MsgBox code above but that doesn't seem to work?