On Error reset?
 

I'm using the On Error Goto code (see below).

On Error GoTo StopError

The StopError routine is as follows:

StopError:
Msg = "There appears to be no data for this model. (" & model & ")
Click OK to continue and then verify that there were no calls for that
particular model last month." ' Define message.
Style = vbOKOnly ' Define buttons.
Title = model ' Define title.
Response = MsgBox(Msg, Style, Title)
GoTo Repeat


This macro loops several times. Each time, I need to be able to keep the
"On Error GoTo StopError" active. For some reason, the second time an error
occurs, I just get the error instead of the code re-routing to the StopError
routine. I've tried adding "On Error Goto 0" before the "GoTo Repeat"
statement with no success.

Any ideas?

On Error reset?
 

GoTo doesn't deactivate an error handler. Change the last line in your
error handler to:

Resume Repeat

Resume deactivates the error handler and branches code execution to the line
specified by the label.

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *


"PCLIVE" wrote in message
...
I'm using the On Error Goto code (see below).

On Error GoTo StopError

The StopError routine is as follows:

StopError:
Msg = "There appears to be no data for this model. (" & model & ")
Click OK to continue and then verify that there were no calls for that
particular model last month." ' Define message.
Style = vbOKOnly ' Define buttons.
Title = model ' Define title.
Response = MsgBox(Msg, Style, Title)
GoTo Repeat


This macro loops several times. Each time, I need to be able to keep the
"On Error GoTo StopError" active. For some reason, the second time an
error
occurs, I just get the error instead of the code re-routing to the
StopError
routine. I've tried adding "On Error Goto 0" before the "GoTo Repeat"
statement with no success.

Any ideas?

On Error reset?
 

Thanks, that works great!


"Rob Bovey" wrote in message
...

GoTo doesn't deactivate an error handler. Change the last line in your
error handler to:

Resume Repeat

Resume deactivates the error handler and branches code execution to the
line
specified by the label.

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *


"PCLIVE" wrote in message
...
I'm using the On Error Goto code (see below).

On Error GoTo StopError

The StopError routine is as follows:

StopError:
Msg = "There appears to be no data for this model. (" & model & ")
Click OK to continue and then verify that there were no calls for that
particular model last month." ' Define message.
Style = vbOKOnly ' Define buttons.
Title = model ' Define title.
Response = MsgBox(Msg, Style, Title)
GoTo Repeat


This macro loops several times. Each time, I need to be able to keep
the
"On Error GoTo StopError" active. For some reason, the second time an
error
occurs, I just get the error instead of the code re-routing to the
StopError
routine. I've tried adding "On Error Goto 0" before the "GoTo Repeat"
statement with no success.

Any ideas?