Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo enditall
Application.EnableEvents = False
If Me.Range("A1").Value < "" Then
Me.Range("A2").Value = Format(Now, "hh:mm:ss")
End If
enditall:
Application.EnableEvents = True
End Sub

Placed in the worksheet module.


Gord Dibben MS Excel MVP

On Fri, 30 Apr 2010 20:25:01 -0700, karim
wrote:

hi,

I want to record current time into cell(A2) when cell (A1) does contain
value with macro.
I want to record it automaticaly without using any shortkey or tab,

Please help.