The previous had an extraneous declaration:

Right click on the sheet tab and select view code. Paste in one of the
below:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A1:A500")) Is Nothing 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

for the entire column

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 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

--
Regards,
Tom Ogilvy


Gordon Cartwright wrote in message
...
Tom...

How do I adjust this code to allow a range a1:a500 to be
return date values in b1:500 rather than just a1 and b1. I
should have asked this originally but I thought I could
manipulate the code but I'm still learning...thanks

Gordon.

-----Original Message-----
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.


.