Sub TestError2() On Error GoTo TestError2_Err Debug.Print 1 / 0 msgBox "I am in Test Error" Exit Sub TestError2_Err: If Err = 11 Then msgBox "Variable 2 Cannot Be a Zero", , "Custom Error Handler" End If Exit Sub End Sub