Time Stamp in Column A

[rubinda]

I am trying to enter a time stamp into column A when data is entered into column E, for a row, and I need the macro to loop through column E, and anywhere it is not blank place the time stamp in column A.
If data is entered E2 (E3, E4, E5, etc.) once the time stamp is entered into cell A[X], I need it to remain the same.
I have started with the code below, but not sure where to go from here. Can you please assist?

Sub timestamp()
On Error GoTo enditall
Application.EnableEvents = False
If Target.Cells.Column = 1 Then
With Target
If .Value <> "" Then
.Offset(0, 1).Value = Format(Now, "mm/dd/yyyy hh:mm:ss AM/PM")
End If
End With
End If
enditall:
Application.EnableEvents = True
End Sub

 

[Scott Huish]

First off you need this to be in the Worksheet Change Event.
Right click the sheet you want this to happen on. Click on View Code and paste the below code into the Visual Basic Editor.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, d As Range
Set d = Intersect(Target, Range("E2:E" & Rows.Count))
If d Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each c In d
    If c <> "" And Range("A" & c.Row) = "" Then Range("A" & c.Row) = Format(Now, "mm/dd/yyyy hh:mm:ss AM/PM")
Next
Application.EnableEvents = True
End Sub

 

[rubinda]

I get an error, "Object Required".

 

[Scott Huish]

Did you change anything in the code?

Can you post it exactly as you have it?