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.