Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "A1"

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
If .Value < "" Then
.Offset(0, 1).Value = Format(Time, "hh:mm:ss")
End If
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Lp12" wrote in message
...
Hi Niek,
Thanks for the answer but I use both formula and macro methods with Now
function, and I'm looking for an alternative for that cause Now() keeps
updating the cell on each entrance to the sheet. Its a timestamp for a
signature, once a user writes its initial in A1 I want A2 to write down
the
timestamp. but once there's a value in A1 i dont want A2 to update to the
current date, only once. Hope i got myself clear.
Thanks a lot

"Niek Otten" wrote:

http://www.mcgimpsey.com/excel/timestamp.html

--
Kind regards,

Niek Otten
Microsoft MVP - Excel

"Lp12" wrote in message
...
| Hi Bob,
| Thanks for the response but I was referring to a cell that's getting
| populated with timestamp according to a value of the near cell: If A1
isn't
| null then A2 = Now(). I have this statement in several places in my
sheet. I
| need the date to be stable automatically and not with user active.
| Thanks again
|
| "Bob Phillips" wrote:
|
| Ctrl-:, or Ctrl-Shift-;
|
| --
| HTH
|
| Bob Phillips
|
| (replace somewhere in email address with gmail if mailing direct)
|
| "Lp12" wrote in message
| ...
| Hi All,
| I'm using the Now() function as a timestamp in a cell. The trouble
is that
| each time the sheet opens up, the timestampt is changeing to the
current
| date. How can i implement a timestamp without this to happen?
| Thanks a lot in advance..
|
|
|