Hi J_J,

Had a similar problem ... adjust the following to your needs :
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cell As Range
Set Target = Range("J1:J200")
For Each Cell In Target
If Cell.Value = Now() Then
Cell.Offset(0, -8).Range("A1:L1").Interior.ColorIndex = 6
End If
If Cell.Value < Now() Then
Cell.Offset(0, -8).Range("A1:L1").Interior.ColorIndex =
xlNone
End If
Next Cell
End Sub

HTH
Cheers
Carim