424 - Object required pop-up

[VICTORIE]

I am using the following code in excel to auto stamp the time in column B when an action is taken in column A. I found the code in this forum and it is awesome (Thank you!). The problem I am having is when I change any data in any other column on the spreadsheet, c, d, e, etc. When I put data in any of these columns and hit enter, this 424 - object required message pops-up. If I click OK, it disappears, but I am planning to give the spreadsheet to other people to use so I need to get this fixed. What do I need to change in this code to stop the message from appearing?

Please Login or Register  to view this content.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngLoopRange As Range
On Error GoTo ErrorHandler
Application.EnableEvents = False
For Each rngLoopRange In Intersect(Target, Range("A2:A" & Rows.Count))
rngLoopRange.Offset(0, 1) = Time
Next rngLoopRange

CleanExit:
Application.EnableEvents = True
Exit Sub

ErrorHandler:
MsgBox Err & " - " & Err.Description
Resume CleanExit

End Sub

Please Login or Register  to view this content.

Thank you for your help.

[tigeravatar]

VICTORIE,

Welcome to the forum!
In the future, please wrap your code in code tags. See the forum rules #3 (link in my sig) for how.
As to your question, this code should work for you:

Please Login or Register  to view this content.

[VICTORIE]

Thank you so much tigeravatar, it worked perfectly!