エラーが発生しても再試行する

Sub エラーが発生しても再試行する()

    On Error GoTo エラー
    
        'エラーになっても再試行したいコード
    
    On Error GoTo 0 'エラー設定解除

Exit Sub 'エラー発生しなければ、ここで通常終了

エラー: 'エラーなったらここに飛ぶ
    
    エラー回数 = エラー回数 + 1 'エラー回数を数える
    
    If エラー回数 = 5 Then '5回目に終了する
    
        MsgBox "エラーが発生しました。時間をおいて再度お試し下さい。"
        End
        
    End If
    
    Resume '同じ行から再開する
    
End Sub

回避できないエラーの場合 On Error Resume Next を使ってスキップするのが一般的ですが、スキップするべきではないケースもあります。その場合、Resumeで同じ行から再開できるんですが、ただResumeだけを記述しても無限ループになるだけなので、5回繰り返したらエラーメッセージを出すという仕様を考えてみました。ご活用ください。