On Apr 3, 4:12*pm, jasontferrell wrote:
Ahhh, try this:
Private Sub Worksheet_Change(ByVal Target As Range)
* * If Not Intersect(Range("O:O"), Target) Is Nothing Then
* * * * If LCase(Target.Value) = "y" Then
* * * * * * Target.Offset(0, 2).Value = Date
* * * * End If
* * End If
End Sub

It needs to go into the code module specific to the sheet on which you
want the functionality. *(VBAProject-Microsoft Excel Objects-Sheet1,
for example).

EXCELLENT
This is what I was looking for.
Many thanks
j.o.