Question

I have looked on Google and the answer is not there!

First things first. WScript.Quit DOES NOT WORK! I have no idea what “WScript” is but it clearly has nothing to do with client side scripting for a web page. I have seen this “WScript” thing somewhere before and it just produces errors (maybe obsolete or something) so please do not suggest it…

Anyway… all I wish to do is completely stop the script in the event of a condition not being met. Obviously I don’t want “Exit Sub” because the code would then carry on running if that sub is embedded!

I am aware of the “stop” command but I am under the impression that it is only used for debugging.

Hopefully a very simple question.

UPDATE and Conclusion: Before I close this subject I will just expand a little on what I was trying to do…

I had a number of main subs that were being started by a button click. In order to make it so that I did not have to edit each individual sub I embedded a universal sub within each one that did a preliminary check.

Part of that preliminary check was to stop the program in the case of an incorrect user input. If an error was detected I wanted to halt all progress from that point on. An “exit sub” would obviously just skip the rest of that preliminary sub and the main sub would carry on executing.

In the end it was just a case of writing in an error flag (that is checked in the main subs) or incorporating the error condition operation in each main procedure. In that way you exit the main sub and the problem is solved.

It was not laziness – I just wanted to reduce the amount of code. Thank you for the responses anyway.

Answer 1

You can use something like this:

Sub MyFunc
    ----------
    My Code
    ----------
End Sub

Function Main
  On Error Resume Next
  MyFunc
  If Err.Number <> 0
  Exit Function
End Function

It’ll stop executing the code, the point it finds an exception or throws an error.