Answers for "vba on error goto label"

VBA
0

vba on error goto label

' 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 Sub
Posted by: Guest on January-23-2021

Code answers related to "VBA"

Browse Popular Code Answers by Language