You can do this with a Change event:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A1" Then
Application.EnableEvents = False
If Range("A1") = "Y" Then
Range("B1") = Now()
Else
Range("B1") = "Not complete!"
End If
Application.EnableEvents = False
End If
End Sub

Regards,
Stefi

€žsystemx€� ezt Ã*rta:


Hi all,

Just a little help - hopefully this is a simple one. When someone
enters data in a cell, I would like to record the date and time this
was done in the adjacent cell.

I can use -

=IF(A1="Y",NOW(),"Not Complete")

But this will auto update. I want the date and time to be fixed once
the cell has been updated.

Any help, as always, will be massively appreciated!

Cheers

Rob


--
systemx
------------------------------------------------------------------------
systemx's Profile: http://www.excelforum.com/member.php...o&userid=29254
View this thread: http://www.excelforum.com/showthread...hreadid=490986