Assume the due date is in Column "B"

Dim i As Long

eRow = Cells(Rows.Count, 12).End(xlUp).Row
For i = eRow To 2 Step -1
With Rows(i).EntireRow.Interior
If Cells(i, 12).Value = "DOCK" Or _
Cells(i, 12).Value = "FROZ" Or _
Cells(i, 12).Value = "Loan Repay" Or _
Cells(i, 12).Value = "TRAN" Then
.ColorIndex = 4
.Pattern = xlSolid
End If
End With
if cells(i,"B").Value < Date then
cells(i,"B").Interior.ColorIndex = 3
end if
next

--
Regards,
Tom Ogilvy



"Byron" wrote in message
...
All

I need to color the font in a cell red based on if the date contained in
that cell is past due or not. The part that complicates this is that I
also
need to color the whole line a different color based on other
requirements,
as shown below. Where those to are contained on the same row, I need to
color the interior of the row one color, and the date another. Hope that
is
clear. Ive had many wonderful suggestions on how to color the whole row,
but
not individual text in individual cells. Sorry for the newguy persistence
on
this.


Dim i As Long
eRow = Cells(Rows.Count, 12).End(xlUp).Row
For i = eRow To 2 Step -1
With Rows(i).EntireRow.Interior
If Cells(i, 12).Value = "DOCK" Or Cells(i, 12).Value = "FROZ"
Or _
Cells(i, 12).Value = "Loan Repay" Or Cells(i, 12).Value =
"TRAN" Then
.ColorIndex = 4
.Pattern = xlSolid
End If
End With