That worked for the one cell range. What I need is for that to scan a range of cells such as :

Dim CellDate As Date
CellDate = CDate(Range("B7:B9").Value)
If Date - CellDate > 10 Then Range("B7:B9").Font.Bold = True

When I run this code I get a Type Mismatch Error!!

Also when i try to change the format of the cell to highlight in yelllow when the logic statement is true, I get an error message say that it can not change the Color INdex.

Any guesses as to how to solve these two problems??

Thanks for the help so far...