how to prevent debug error when I insert new rows with datetime & username stamp

Hi,

I'm using this codes for the date time stamp and updated by username for my excel. But I got a problem.

(1) I got a row which is the header but I do not want the formula to run on this header if I made changes to it. How do I tweak my current codes?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("A:X")) Is Nothing Then
Application.EnableEvents = False
Intersect(Target.EntireRow, Columns("Y")) = Now()
Intersect(Target.EntireRow, Columns("X")) = Environ("USERNAME")
Application.EnableEvents = True
End If
End Sub

(2) If I insert a row, the system will prompt debug. How do I overcome this?

Your expertise in this is greatly appreciated.
Thank you.

Please use Code Tags for your code excerpts (to comply with forum rules)

Whatever, try it this way:

Please Login or Register  to view this content.

Regards, TMS

You're welcome.



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.

For what it's worth, you could use:

Please Login or Register  to view this content.

Also note that you have an overlap between the range you monitor and the column you put the User Name.

Regards, TMS