Multiple error handling

[tiredofit]

I have added an error handling in the code below.

Suppose MyArray(10, 1) = #NA, then the error handling works but if MyArray(11, 1) = #NA also, it fails.

It seems the error handling cannot handle more than one error. How can I fix this? I have even added an On Error GoTo 0 to "reset" it but it still doesn't work.

Dim a As Integer

a = 1

On Error Goto ErrHandler

For b = 1 To 100

    Do Until MyArray(a, 1) = 100

        a = a + 1

    Loop

Continue:

Next b

Exit Sub

ErrHandler:

    MsgBox "Error"

    On Error GoTo 0

    GoTo Continue

 

[tiredofit]

Should I have added Resume Continue instead of GoTo continue?

 

[RoryA]

Yes, and remove the OEG0 line.

 

[tiredofit]

Why?

I thought after setting On Error Something, you should always put On Error GoTo 0 to "reset" it?

 

[RoryA]

Because that will disable your error handler and any further errors won't be handled.

 

[tiredofit]

Thanks

 

[RoryA]

You may want to skim through this article I wrote recently: On Error WTF? | Excel Matters