I am looking to change the font color to blue if the last update date (in
column 19) is greater than yesterday. I have the code below in the macro but
it only runs for the row that is selected. It doesn't run through rows 2 to
1000. Any help is appreciated.

For rwIndex = 2 To 1000
For colIndex = 19 To 19
With Worksheets("CC Routed Truck Loads").Cells(rwIndex, colIndex)
If .Value = "" Then
Exit For
Else
If .Value Int(Now()) - 3 Then
Selection.EntireRow.Font.ColorIndex = 5
End If
End If
End With
Next colIndex
Next rwIndex

Thanks to anyone who took a look at this, but I just realized I should remove
the word Selection. Works fine now.



"Gary McCarthy" wrote:

I am looking to change the font color to blue if the last update date (in
column 19) is greater than yesterday. I have the code below in the macro but
it only runs for the row that is selected. It doesn't run through rows 2 to
1000. Any help is appreciated.

For rwIndex = 2 To 1000
For colIndex = 19 To 19
With Worksheets("CC Routed Truck Loads").Cells(rwIndex, colIndex)
If .Value = "" Then
Exit For
Else
If .Value Int(Now()) - 3 Then
Selection.EntireRow.Font.ColorIndex = 5
End If
End If
End With
Next colIndex
Next rwIndex

If you have only ONE last update why look at all cells?
Sub colorlastupateincol19()
mc = 19
lr = Cells(Rows.Count, mc).End(xlUp).Row
If Cells(lr, mc) Date - 1 Then rows(lr).font.ColorIndex = 5
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Gary McCarthy" wrote in message
...
I am looking to change the font color to blue if the last update date (in
column 19) is greater than yesterday. I have the code below in the macro
but
it only runs for the row that is selected. It doesn't run through rows 2
to
1000. Any help is appreciated.

For rwIndex = 2 To 1000
For colIndex = 19 To 19
With Worksheets("CC Routed Truck Loads").Cells(rwIndex, colIndex)
If .Value = "" Then
Exit For
Else
If .Value Int(Now()) - 3 Then
Selection.EntireRow.Font.ColorIndex = 5
End If
End If
End With
Next colIndex
Next rwIndex