Exit Macro on Error

[muay74]

I'm trying to make a routine stop if an error occurs but can't work out the code to make it stop the routine as if I exit the sub it simply goes back to the parent sub that called the routine ;<

Sure it's an easy thing just can't work out the code ;<

 

[VoG]

Maybe like this

On Error GoTo KillMe
'
'your code here
'
Exit Sub
KillMe:
End
End Sub

 

[Sektor]

Or...

On Error GoTo KillMe
'
'your code here
'
Exit Sub

KillMe:
End Sub

 

[Ruddles]

TBH I think the second offering will merely return control to the calling routine rather than end VBA completely.

One technique I often use is to make the called routine into a function - this isn't always possible - and return a value from the function indicating whether an error occurred or not: True/False for success/fail or the actual Err.Number (0 for success, etc). The calling routine is then responsible for testing this value and take the necessary action. So if the subroutine is called MyOtherCode, you'd call it like this:-

If MyOtherCode([I]parameters[/I]) <> 0 Then
  MsgBox "Argh!"
  Exit Sub
End If

I prefer to restrict code which does things as drastic as stopping the run to the main routine if possible, then this sort of problem doesn't crop up.