エラー処理

・無視して次を実行し最後にエラーの有無を確認

Sub エラー時中断()
    
    'エラー時中断
    On Error GoTo myErrorLabel
    
    '【ここにマクロ処理】
    
    'エラーがなければエラー処理をせずにマクロ終了
    Exit Sub
    
'エラー時処理
myErrorLabel:
    MsgBox "エラー番号:" & Err.Number & vbCrLf & _
                "エラーの種類:" & Err.Description, vbExclamation

End Sub

・エラー発生時に中断してエラー処理

Sub エラーでも継続()
'エラーがあっても無視して進んでマクロ終了後にエラーがあったら報告
    
    'エラー時無視してマクロ処理続行
    On Error Resume Next
    
    '【ここにマクロ処理】
    
    '最後にエラー有無チェック
    If Err.Number <> 0 Then
        MsgBox "エラーが発生しました" & vbCrLf & _
               Err.Description, vbExclamation
    End If

End Sub