Děkuji.
Už jsem něco našel na webu Pavla Lasaka a funguje mi to.
jenom pro info přikládám.
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
' zapsání do buňky
Application.EnableEvents = True
If Target.Column = 1 Then
i = Target.Row
Cells(i, 4).Value = Format$(Now, "dd/mm/yy hh:nn")
End If
End Sub