right click on the sheet tab and select view code. paste in this code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Not IsEmpty(Target) Then
If UCase(Target.Value) = "YES" Then
Target.Offset(0, 1).Value = Now()
Target.Offset(0, 1).NumberFormat = "mm/dd/yyyy hh:mm:ss"
Target.EntireColumn.AutoFit
End If
End If
End If
End Sub

if you want to use a formula, you would need to have intentional circular
references. If that is what you want, post back.
--
Regards,
Tom Ogilvy

"Gordon Cartwright" wrote in message
...
Hi...

In cell A1 I want type the word yes and in Cell B1 a
formula that will return the exact date the word Yes was
entered.

Thanks in advance

Gordon.