Excel VBA - Using Error Traps where Another Routine is Called

Question

I have a module with a number of procedures, each of which is called by a separate statement. I'm attempting to include error traps in each procedure, however the traps are activated even when there isn't an error.

Example

public sub Macro1()

*some DIM statements*

On Error GoTo Errhandler

*some code
*
errhandler: MsgBox "Error! Contact developer"
Exit Sub


Call AnotherRoutine

End Sub

In case this had to do with the order of the coding, I tried putting the errhandler statement below the Call statement, but I still had the same issue.

Answer 1

Macro1 is illegible as syntax. After the error handler, I believe you meant to say End Sub. Not like managing circumstances with an If, error handling is different. Simply put, the label is a spot in the code to go to in the event of an error.

To check for errors, you can either enclose the message box with an If or add an Exit Sub immediately above the label.

Public Sub Macro1()
    On Error Goto ErrHandler
    ...
    If Err > 0 Then MsgBox MYMESSAGE
End Sub