Sean

You could do this with a macro linked to the worksheet_open event

Something like

Sub Update()
Const RedHighlight = 90
Const YellowHighLight = 80
Const DateColumn = 3


For N = 2 To Cells(65536, 1).End(xlUp).Row
If Cells(N, DateColumn) + RedHighlight < Now Then
Rows(N).Interior.ColorIndex = 3
GoTo FinishedThisRow
End If

If Cells(N, DateColumn) + YellowHighLight < Now Then
Rows(N).Interior.ColorIndex = 6
GoTo FinishedThisRow
End If

FinishedThisRow:
Next N
End Sub


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=537555