Nested Error Handling in Excel VBA - excel

Question

I am trying to run an error handler in an error handler in Excel VBA, but the second error handler never runs. It just gives me an error message. This is my code.
Sub func()
On Error GoTo error1
'code
Exit Sub
error1:
On Error GoTo error2
'code
Resume Next
error2:
'code
Resume Next
Basically, the function can run into 2 possible errors. I try to run the code and if it runs into an error, it tries to fix error1, and if that fails then error2 will fix it. The debug works for error1, but if error2 is the problem, the code will just fail.

Answer 1

This is how to throw two specific errors, based on a password char:
Sub Bar()
Dim password As String
On Error GoTo err1
password = "asd^"
If InStr(1, password, "&") Then Err.Raise 9990, Description:="No &!"
If InStr(1, password, "^") Then Err.Raise 9991, Description:="No ^!"
Exit Sub
err1:
Select Case Err.Number
Case 9990:
Debug.Print Err.Description
Case 9991:
Debug.Print Err.Description & ":("
End Select
End Sub
This is a possible way to do it using -1, as mentioned by #Darren Bartup-Cook in the comments. However, it is strongly not advisable, unless you do not want to write bad code for a reason of your own:
Sub Bar()
On Error GoTo err1
Debug.Print 0 / 0
Exit Sub
err1:
Debug.Print "err1"
On Error GoTo -1
On Error GoTo err2
Debug.Print 5 / 0
Debug.Print "Just testing..."
err2:
Debug.Print "err2"
End Sub
There are plenty of better ways to do it, if you want to catch 2 errors, try the following:
Sub Bar()
On Error GoTo err1
Debug.Print 4 / 0
On Error Resume Next
Exit Sub
err1:
Select Case Err.Number
Case 6:
Debug.Print "Overflow!"
Case 11:
Debug.Print "Division by 0 error!"
Case Else:
Debug.Print "Another error!"
End Select
End Sub
It catches Div/0 and Overflow and gives you info about them in the immediate window.