Public AbortMe as Boolean
AbortMe = False
call SubMacro
If AbortMe = True Then Exit Sub
macro continues...
Sub SubMacro()
'macro does some stuff
If SomethingBadHappened = True Then
AbortMe = True
Exit Sub
Else
' Do other stuff
End If
End Sub