Sub Func1()
On Error GoTo Func1_Err
Debug.Print "I am in Function 1"
Call Func2
Debug.Print "I am back in Function 1"
Exit Sub
Func1_Err:
msgBox "Error in Func1"
Resume Next
End Sub
Sub Func2()
Debug.Print "I am in Func2"
Call Func3
Debug.Print "I am still in Func2"
End Sub
Sub Func3()
Dim sngAnswer As Single
Debug.Print "I am in Func3"
sngAnswer = 5 / 0
Debug.Print "I am still in Func3"
End Sub