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.