The on error statement is leveraging goto which just takes you to a specific
section in the procedure... so you need something like this...
Sub Test()
On Error GoTo ErrorHandler
'my code here
Exit Sub
ErrorHandler:
call MyErrorHandler(Err.Number)
End Sub
Sub MyErrorHandler(ByVal intErrorNumber As Integer)
Select Case intErrorNumber
Case 1
'do this
'and so on
End Select
End Sub
***There is an automated addin that makes generating that code very easy.
Take a look at this link to get the addin. There are a bunch if indispensable
tools in this addin...
http://www.mztools.com/index.aspx
--
HTH...
Jim Thomlinson
"RyanH" wrote:
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