Hey guys,

I have this macro that copies the whole row on another sheet if a cell contains Yes. I have added this macro to the sheet.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
    If Not Intersect(Target, Range("AA:AA")) Is Nothing Then
    If Target.Cells.Count = 1 Then
    If Target.Value = "YES" Then

        Range(Cells(Target.Row, 1), Cells(Target.Row, 26)).Copy
        Sheets("Data-Sample").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

    End If
    End If
    End If
    
Application.ScreenUpdating = True
End Sub
I want to add it another functionality to it. If the font color of a cell in column with Range A15:A1020 is green, and the Range in C15:F1020 has a value bigger than 0, to color the interior of the cell in red.
Also if the font color of Range A15:A1020 is red and the range of U15:V1020 has a value bigger than 1, to color again the interior of the cell in red.

I tried to add the code below to the above macro, but it doesn't seem to work.

    If Sheets("Data").Range("A15:A1020").Font.Color = 3 And Sheets("Data").Range("C15:F1020").Value > 0 Then
    Range("C15:F1020").Interior.Color = 3
    Else
End If
Thank you in advance!