On Error なんたらエラー処理

Sub Sample1

    On Error GoTo onErr

    'エラーが起きるような処理

    GoTo onEnd 'Exit Subなど

onErr:

    'エラー時の処理を記載

    Debug.Print Err.Number 'エラー番号
    Debug.Print Err.Description 'エラーメッセージ

    Resume Next 'エラー発生個所に戻る？未検証
onEnd:

End Sub

'※Err.Numberの種類別にエラートラップしたい方はご自由に。




'その他

On Error Goto 0  'エラートラップを無効化

On Error Resume Next  'エラー発生時も気にせず次の行へ