Using Error Handling in VBA

Question

I am trying to figure out if it is possible for all my subs to have a single error handler? I am in a condition where I need to exit the sub whenever there is an error and skip all of the next subs.

Sub Runall()
Call A
Call B
Call C 
Call D
End sub 

Now if there is a error in Sub A I don't want to run B,C,D and same thing for B. Where Should my I put my error handler? I am practically very confused as how does use of EXIT statement matter. Please advice.

Answer 1

Here is how I would do it.
Include on On Error GoTo Handler: in calling sub.

Once these subs raise an error On Error in RunAll will take over(becuase if a sub is missing Error handler it will try to use Error Handler of calling sub) and with its GoTo is will skip everything untill it sees Handler.

Remeber that before Handler you need to incluse Exit Sub or VBA in Handler will be used regardless of if you have an error or not.

Here is a "failling" example:

Sub RunAll()
    On Error GoTo Handler
    Call A
    Call B
    Exit Sub
Handler:
        Debug.Print "testing"
End Sub

A

Sub A()
    Dim fail As Integer

    fail = 1 / 1
End Sub

B

Sub B()
    Dim fail As Integer

    fail = 1 / 0
End Sub

Answer 2

Try this

 Sub Runall()
    Call A
    On Error GoTo Errhandler
    Call B
    On Error GoTo Errhandler
    Call C 
    On Error GoTo Errhandler
    Call D
    On Error GoTo Errhandler

 ' Exit the macro so that the error handler is not executed.
 Exit Sub
    Errhandler:
    ' If an error occurs, display a message and end the macro.
    MsgBox "An error has occurred. The macro will end."
 End sub