Sub ColourRed()
If ActiveCell.Value = Date Then
ActiveCell.EntireRow.Interior.ColorIndex = 3
End If
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with googlemail if mailing direct)

"Altec101" wrote in
message ...

So if I have a date in let say cell B2 and I have a if statment in a
macro that looks at the date in that cell and compares it with the
currenty system date, if the dates match I want it to colour the row
red if not skip that row and check the next one.

This can not be done ??????

I'm trying to make it as easy as posiable for some else can just run a
macro with out havn't to setup conditional formatting.


--
Altec101
------------------------------------------------------------------------
Altec101's Profile:
http://www.excelforum.com/member.php...o&userid=34539
View this thread: http://www.excelforum.com/showthread...hreadid=546494