vba error handling message
Dim Msg
On Error GoTo errorhandling ' Defer error handling.
' code goes here, where potential problem occours
errorhandling:
' Check for error, then show message.
If Err.Number <> 0 Then
Msg = "Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Error", Err.Helpfile, Err.HelpContext
Err.Clear
End Ifvba on error resume
' Example of resume after an error
Private Sub TestMe()
Dim m As New Collection
On Error GoTo CleanFail
Debug.Print 1 / 0
CleanExit:
Set m = Nothing
Debug.Print "Clean exit"
Exit Sub
CleanFail:
Debug.Print Err.Description
Err.Clear
Resume CleanExit
End SubCopyright © 2021 Codeinu
Forgot your account's password or having trouble logging into your Account? Don't worry, we'll help you to get back your account. Enter your email address and we'll send you a recovery link to reset your password. If you are experiencing problems resetting your password contact us
