Couldn't test it, but try to add these three lines after setting the date:

If .Offset(0, -3).Value < Now() Then
..Offset(0, -3).Interior.ColorIndex = 32
End If
--
Gary''s Student


"Chris" wrote:

To Anyone,

I'm using a shared worksbook so I cannot use conditional formating BUT how
do I create a function that turns a cell a different color if the date is
older than todays date...
Currently, I'm using this code to add a date:
Const WS_RANGE1 As String = "L2:L800"
If Not Intersect(Target, Me.Range(WS_RANGE1)) Is Nothing Then
With Target
.Offset(0, -3).Value = Format(Date, "dd mmm yyyy")
End With
End If

I'm assuming the code would look similar but I'm not that good... any help
would be appreciated.