Julie's response also had some VBA code to address the situation, and I think
that's about the only way to accomplish your goal.

her code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.address = "$A$1" And Not IsNull(Target.Value) Then
Target.Offset(0, 1).Value = Now
End If

End Sub

Julie's code works only for cell A1. You may want to change the If
statement to

If Target.column = 1 And Not IsNull(Target.Value) Then

Change the "column = 1" to reflect your column of interest, and this will
then work for any cell in that column



" wrote:

Julie, I know the manual keystrokes will work, but I am trying to make
this so any non-computer user will be able to work it. What I am doing
is reading a bar code into cell A and need it timestamped. Is there a
way to generate the manual keystrokes within a formula. Know matter how
I use the NOW command it updates to the new time.
Thanks!!!
Rick