Microsoft Office Forums - View Single Post - Change font color if date in column F is prior to today's date.

kevinbradley57 · 12-05-2018, 05:42 PM

I have a spreadsheet in which Column F of every row is a different date. This code only works on the first row after the header. Help?

Code:

Sub PastDue()

    Dim rCell As Range

    With Sheet1
        For Each rCell In .Range("F2", .Cells(.Rows.Count, 11).End(xlUp)).Cells
            If rCell <> "" And IsDate(rCell) And rCell.Value < Date Then
                rCell.Font.color = vbRed
            End If
        Next rCell
    End With

End Sub