Can a sub have more than one OnError Statement???

[AlexB123]

Hi all,

I have an odd macro that makes use of OnError Resume Next ... my understanding is that this statement returns control of the sub to the following lines. In addition to this weird code block (I am working on a different approach, generally, but please bare with me), I want to insert a general error handler to exit the sub if a user runs into an error.

Is there a problem with having a general Error Handling label and statement, plus the second On Error Resume Next?

My feeling is that one will override the other and cause more problems ... but I'm not sure. Also, is the structure of the label statement OK?

Thanks!

Sub Register()
 On Error GoTo ErrHandl

Dim Success As Boolean
Dim excelfile As Variant
Dim ucrWB As Workbook
Dim ucrSh1 As Worksheet
Dim ucrPath As String


'do code

Do While excelfile <> ""
        
        Success = ""

        On Error Resume Next
        Set ucrWB = Workbooks.Open(ucrPath & excelfile)
            Set ucrSh1 = ucrWB.Sheets(1)
        Success = (Err.Number = 0)

            If Success = True Then
                            'Do More Stuff

           Else:
                            'Do other stuff
           End If

     excelfile = Dir
Loop

'Finish Code

           Exit Sub

ErrHandl:
MsgBox "There was an error."

End Sub

 

[Eric W]

You can only have one error handler active at a time, but you can have as many handlers as you want. In your example, you start with the ErrHandl: handler, but as soon as you hit the On Error Resume Next, that takes over. But if you want, you can put another On Error GoTo ErrHandl: line 3 lines later, and that takes over again. If you have a large subroutine, with many sections, you can set one for each section.

Your label is coded fine.

 

[AlexB123]

Much appreciated!!!