Код VBA для сравнения двух столбцов с цветом и сравнения его с другим столбцом

Question

У меня есть три столбца AA, AB и AF, где я должен сравнить столбец AA и AB со столбцом AF для всех строк в отдельности.Макрос должен сначала проверить столбцы AA и AB и найти, какой из столбцов имеет янтарный цвет, и сравнить этот столбец (только если этот столбец Amber имеет значение «Критический») с соответствующим столбцом AF, чтобы проверить, есть ли в столбце AF дни.менее 335 дней или нет.

В этом запросе сначала сравниваются столбцы AA и AB, а столбец имеет янтарный цвет, а с янтарным цветом он проверяет значение «Критический», если это значение найдено, затем проверяет соответствующий код AFстолбец с датой менее 335 дней или нет.Каким-то образом запрос не работает.Пожалуйста, помогите мне в этом.

Sub EUDA_New()


Dim Critical As Range
Dim StartDate As Date
Dim amberColor As Boolean

StartDate = Date

With ThisWorkbook.Worksheets("TEMPLATE")

    LRow = .Cells(.Rows.Count, "AB").End(xlUp).Row
    For Each Critical In .Range("AB11:AB" & LRow)

        amberColor = False

        If .Range("AA" & Critical.Row).Interior.ColorIndex = RGB(255, 192, 0) Then

            Set Critical = .Range("AA" & Critical.Row)

            amberColor = True

        ElseIf .Range("AB" & Critical.Row).Interior.Color = RGB(255, 192, 0) Then

            amberColor = True
        End If


        If amberColor And Critical.Value = "Critical" Then

            If IsDate(.Range("AF" & Critical.Row)) Then

                If DateValue(.Range("AF" & Critical.Row)) < StartDate - 335 Then

                    .Range("AF" & Critical.Row).Interior.Color = vbRed
                End If
            Else

                .Range("AF" & Critical.Row).Interior.Color = vbRed
            End If
        End If
    Next Critical

End With
End Sub