Paste the following in your worksheet's code
(right-click on tab, select View code)

HTH
--
AP


'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sRng As Range
Set sRng = Range("A1")
If Not Intersect(Target, sRng) Is Nothing Then
sRng.Offset(0, 1).Value = Now
End If
End Sub
'------------------------------------
"Lp12" a écrit dans le message de news:
...
Hi All,
I want to create a timestamp in A2 cell if there is a value in A1.
I used the Now() function which worked great, but each time i save the
worksheet, the timestamp cell (with the Now formula) changes to the
current
date/time.
Is there an alternative to accomplish a stable date-time stamp that will
change only if the user accessed and changed A1?
Thanks a lot in advance