L oop останавливается преждевременно

Question

Я пытаюсь интегрировать некоторый код в живой файл. Это работало в тестовом файле, в котором я был; но когда я пытаюсь запустить его на реальных данных, он останавливается после сокрытия одной строки.

Нет ошибок или чего-либо еще; Это как будто не oop, как это должно быть. Я не уверен, что сделка.

Вот код

        With tbl
        'Search ColJ ("CNC Begins") for the first cell with a color index of 15 and the ColK ("CNC Ends") which has an index color of anything other than 15
        Set colStartDate = .ListColumns("CNC Begins").DataBodyRange

        For Each c In colStartDate.Cells
            If c.Interior.ColorIndex = 15 And c.Offset(0, 1).Interior.ColorIndex <> 15 And IsDate(c.Value) And Not c.Offset(0, -9).Value = "C" Then
                FoundDate = c.Value
                Exit For
            End If
        Next c

        For Each c In colStartDate.Cells
            If Not c.EntireRow.Hidden = True Then
                'Hide dates prior to colStartDate but not empty cells
                If Not IsEmpty(c.Value) And IsDate(c.Value) Then
                    MsgBox c.Value & ">=" & FoundDate & " | Address " & c.Address
                    'Exit Sub

                    If Not c.Value >= FoundDate And IsDate(c.Value) And Not IsError(c.Value) Then
                        c.EntireRow.Hidden = True
                    End If
                End If
            End If
        Next c
    End With
    ActiveSheet.Buttons(Application.Caller).Caption = "Show"