Обработчик ошибок On Error - VB

Формулировка задачи:

Проблема в следующем.
Когда встречается первая строка с ложным путем к файлу - все отрабатывается как надо...
Когда появляется еще одна такая же запись выполнение скрипта останавливается и выпадает
Runtime Error: 53. File not found - (это я и без него знаю...)
Как я понял причина в том, что счетчик ошибки не сбрасывается, так как я нахожусь внутри процедуры...
Как сделать так, чтобы я его мог сбросить спокойно?

Sub CheckLoggs()
    'Процедура проверки лога
    
    Dim stream1 As Range 'Диапазон от начала списка ниже заголовка до конца списка
    Dim fDateTime As Date 'Параметр дата изменения файла
    Dim fDateTimeDif As Integer 'Значение разницы от текущего времени до даты создания файла
    Dim inx As Integer 'Счетчик для цикла

    Set stream1 = Range("B4").End(xlDown)   'Выбираем список
    Cells(4, 2).Activate
    
    'По скольку дело имеем с количеством ресурсов требуемых для бекапа то
    'конечная строка на 99,9999% должна быть менее 1 миллиона - в виду ограничения инфраструктуры
    If stream1.Row > 1000000 Then
    'Если конечная строка больше миллиона, то скорее всего в файле нет ни одной заполненной строки
        MsgBox ("Нечего искать - введите пути к файлам!")
        Exit Sub
    End If

    For inx = 4 To stream1.Row
       
    On Error GoTo FileErrorMarker
        
        fDateTime = FileDateTime(Cells(inx, 2))  'Узнаем дату изменения файла по пути из нашего списка
    
        Cells(inx, 4) = FormatDateTime(fDateTime, vbShortDate) 'Выводим дату создания файла в таблицу /для справки
        Cells(inx, 5) = FormatDateTime(fDateTime, vbShortTime) 'Выводим дату создания файла в таблицу /для справки
    
        'Получаем разницу во времени, преобразованную в минуту
        fDateTimeDif = GetMinutesFromDate((Now - fDateTime)) 'Вычитаем даты
        Cells(inx, 7) = fDateTimeDif 'Разница во времени в минутах
        
        If fDateTimeDif <= Val(Cells(inx, 3)) Then 'Если разница меньше трешхолда - то все ОК. Если больше - то генерировать аварию
            Cells(inx, 6) = "OK"
            Call MarkAnError(Range(Cells(inx, 2), Cells(inx, 6)), False)
        Else
            Cells(inx, 6) = "!!! ALARM !!!"
            Call MarkAnError(Range(Cells(inx, 2), Cells(inx, 6)), True)
        End If
        
FileErrorMarker:
        If Cells(inx, 6) = "" Then
            Cells(inx, 6) = "!!! NO FILE !!!"
            Call MarkAnError(Range(Cells(inx, 2), Cells(inx, 6)), True)
        End If
    Next inx
End Sub

Решение задачи: «Обработчик ошибок On Error»

textual
                            Листинг программы 
                        

                            On Error Resume Next
If Err.Number > 0 then
'Выполнить какие то действия
Err = 0
Else

end if

                        