Call run()

Sub run()
    On Error Resume Next
%s
    If Err.Number <> 0 Then Err.Raise vbObjectError
End Sub

Sub ErrMyErrorHandler
    MsgBox Err.Description, vbExclamation + vbOKCancel, "Error: " & CStr(Err.Number)
End Sub
