Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Call Procedure with On Error Statement
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Call Procedure with On Error Statement
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Call Procedure with On Error Statement
thats what I figured I had to do. I wasn't sure if there is a way to call
the Error Handler Sub directly. Thanks. -- Cheers, Ryan "Jim Thomlinson" wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Using a Range variable to call a procedure with a ByVal statement... | Excel Programming | |||
Run-time Error '5' - Invalid procedure call or argument | Excel Discussion (Misc queries) | |||
procedure call error issue | Excel Programming | |||
Invalid procedure call or argument error | Excel Programming | |||
Run-time error '5':Invalid Procedure call or argument | Excel Programming |