This is what I use:Sub Blah()On Error GoTo EH‘Place procedure steps here.'Handle Errors GracefullyExit_EH:Exit SubEH:MsgBox Err.Number & ": " & Err.DescriptionResume Exit_EHEnd Sub