ON ERROR question

[Pete]

Yep, it has always been that way since QuickBASIC. The good news is you can use RESUME NEXT.

So let's say you are in a subroutine and you throw an error 5. 

Code: (Select All)

Dim Shared erh As Integer

On Error GoTo Handler

mysub

Handler:

erh = Err

Resume Next

Sub mysub:

    Locate -1, -1

    If erh = 5 Then Print "Pete's an idiot!": Exit Sub

    ' Blah, blah, blah...

End Sub