Another Error Handling Question

[brichard429]

I have a sub routine that may generate an error if a value is not defined.
While developing the code I've come accross the error and get an error
statement. I have to reset the code by selecting the reset button in the VBA
window to get it to work again. It's not a code issue but a data issue. I'm
not looking for a way to correct the data but I would like to use an error
handler to simply display a message and return the control back to the
spreadsheet so that the routine can run again without having to go to the
Debug window and resetting the code. Any suggestion?

Thank You,

 

[Patrick Molloy]

what do you mean by "not defined"? you can check issues and trap them in
your code. The fact that you get the debug window suggests that all you need
is to add a few
ON ERROR GOTO errorline
traps

 

[JLGWhiz]

Put this line at the beginning of the problem code segment:

On Error GoTo ErrHandler:

Then put this code near the end of the macro.

ErrHandler:
MsgBox "Error Number " & Err.Number & " Has Occurred. Restart Macro"
Err.Clear

This gives you the error number which you can evaluate before restarting.

 

[brichard429]

Thank You, This is what I was looking for.

 

[brichard429]

Thank you Patrick for the reply. The error is a result of a "find" procedure
that has no results and therefore gives the "not defined" value. I wasn't
sure how to handle the particular error so I wanted to use the error check to
provide a message to the user and continue execution.