Hi,

Right click your sheet tab, view code and paste this in. Alter A1 - A100 to
suit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
Target.Offset(, 1).Value = Time
End If
End Sub

Mike


"DDavid" wrote:

Hi guys,

I need to get a solution for this.

If write a data in Cell A1, how can I get in cell B1 the time on what
this data was writen.

Thanks in advance.

ADC