Try using the conditional formatting on the sheet in question - set the
condition less than and the fomula to =now()

Or in VBA try something like the following, here cells C1 to C50 are set to
be coloured white text on a red background if the date in the cell is less
than the system date (todays).

With Range("C1:C50")
.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess,
Formula1:="=NOW()"
.FormatConditions(1).Font.ColorIndex = 2
.FormatConditions(1).Interior.ColorIndex = 3
End With


--
Cheers
Nigel



"wastedwings" wrote in message
...
How can I set up a program in Excel to help me track Contract Expiration
dates?