error handling by checking the Error code : Error Handler « Language Basics « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Language Basics
3. Error Handler

error handling by checking the Error code

 
     Public Sub ErrorHandling()
        On Error GoTo ErrorHandling_Err
        Dim dblResult As Double
        dblResult = 10 / InputBox("Enter a number:")
        MsgBox "The result is " & dblResult
ErrorHandling_Exit:
        Exit Sub
ErrorHandling_Err:
        Select Case Err.Number
        Case 13         ' Type mismatch - empty entry
           Resume
        Case 11         ' Division by 0
           dblResult = 0
           Resume Next
        Case Else
           MsgBox "Oops: " & Err.Description & " - " & Err.Number
           Resume ErrorHandling_Exit
        End Select
     End Sub

 

Related examples in the same category