This will put the date and time in column B when you enter something in column A, take out time & " " & if you don't want the time. Hope this helps
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
Case 1
Cells(Target.Row, 2) = Time & " " & Date
End Select
End Sub
Like this thread? Share it with others