Is there a way to call my error handler procedure when an error occurs in any
of my procedures. This is kinda what I was looking for.

Sub Test()

On Error GoTo ErrorHandler(Err.Number)
'my code here

End Sub

Sub ErrorHandler(ByVal intErrorNumber As Integer)

Select Case intErrorNumber
Case 1
'do this
'and so on

End Select

End Sub


--
Cheers,
Ryan