On Error GOTO Quit

[Guzzlr]

On Error GoTo Quit:

Quit:
MsgBox ("Please Add Data to Template Sheet" _
& vbNewLine & "Then Run Program")

Hello All,
I have the above code. The On Error GoTo Quit is at the top of the code, with the Quit: at the bottom. The problem is my message box keeps popping up, even when no errors are happening?
What am I doing wrong?
Thanks

 

[Rick Rothstein]

On Error GoTo Quit:

Quit:
MsgBox ("Please Add Data to Template Sheet" _
& vbNewLine & "Then Run Program")

Hello All,
I have the above code. The On Error GoTo Quit is at the top of the code, with the Quit: at the bottom. The problem is my message box keeps popping up, even when no errors are happening?
What am I doing wrong?
Thanks

You have to put End Sub or End Function (depending on what type of code procedure you have) immediately before the Quit: label to stop your code from falling through.

 

[DanteAmor]

It is likely that some other error is happening and you are not viewing it.


It is not recommended to use: On Error GoTo


It is advisable to try to control each of the errors.


If you like, put all your code here to review it and adjust the code to control errors.

 

[Fluff]

You need to exit the sub, before the Quit, like

Exit Sub
Quit:
MsgBox ("Please Add Data to Template Sheet" _
& vbNewLine & "Then Run Program")

I would also advise against using VBA keywords (like Quit) for variables, GoTos etc.

 

[Guzzlr]

thank you all...it's working now. I got rid of the word "Quit" and used ErrHandler instead

 

[Fluff]

You're welcome & thanks for the feedback