Sub cmdNoErrorHandler() Call TestError1(1, 0) End Sub Sub TestError1(Numerator As Integer, Denominator As Integer) Debug.Print Numerator / Denominator msgBox "I am in Test Error" End Sub