On Error GOTO Quit

Guzzlr

Well-known Member
Joined
Apr 20, 2009
Messages
712
Code:
On Error GoTo Quit:
Code:
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

MrExcel MVP
Joined
Apr 18, 2011
Messages
35,426
Office Version
2010
Platform
Windows
Code:
On Error GoTo Quit:
Code:
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

Well-known Member
Joined
Dec 3, 2018
Messages
7,920
Office Version
2007
Platform
Windows
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

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
30,532
Office Version
365
Platform
Windows
You need to exit the sub, before the Quit, like
Code:
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

Well-known Member
Joined
Apr 20, 2009
Messages
712
thank you all...it's working now. I got rid of the word "Quit" and used ErrHandler instead
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
30,532
Office Version
365
Platform
Windows
You're welcome & thanks for the feedback
 

Forum statistics

Threads
1,078,447
Messages
5,340,344
Members
399,370
Latest member
salamon

Some videos you may like

This Week's Hot Topics

  • Problem with Radio Button's format control
    I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
  • Last Display on userform to a Listbox
    [CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
  • Rename and move files to a new location
    Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
  • Help with True/False Formula
    Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
  • Clear extra characters from a provided range of cells
    Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
  • Help with Current and highest streaks
    Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...
Top