Hi I am using following code to achieve it. This works fine, however has two issues:
1 It continues to highlight previously highlighted cells .e.g. If today's date is 08 Jul, then it also highlights, o7 , o6... Jul. I want highlight for previous cells to be removed
2. It only highlights column 'A' cells.
I want it to highlight the entire row.
Is it possible??

Private Sub CommandButton1_Click()
Cells.Find(What:=Date,After:=Cells(1,1),Look:=xlWhole).Activate
ActivateCell.interior.ColorIndex=8
End Sub
regards