Sub エラーを無視するを解除する()
    
    On Error Resume Next
    
        'この部分はエラーを無視
    
    On Error GoTo 0 'エラーを無視する
    
        'この部分はエラーが無視されない
    
End Sub