'Note that for this to work, column A must be manually changed,
'not a formula creating an output.

Private Sub Worksheet_Change(ByVal Target As Range)
'Is it a cell we care about?
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
'Is it a single cell?
If Target.Count 1 Then Exit Sub
'Is criteria met?
If UCase(Target.Value) = "COMPLETE" Then
Target.Offset(0, 1).Value = Date
End If
End Sub

--
Best Regards,

Luke M
"Scott" wrote in message
...
I would like to record and display the date in a column when a particular
event happens.

For example, I'd like to display the date that each row in Column A
displays
"Complete."

If the task in A1 is completed today, I'd like B1 to display "3/22/2010"
and
for it to stay that way unless changed or deleted.

Thanks!