Look at the third line in Mike's code:

If Not Intersect(Target, Range("A1:A10")) Is Nothing Then' Change to
suit

He even tells you to change it to suit (the apostrophe indicates the
start of a comment).

Hope this helps.

Pete

On Oct 29, 4:25 pm, nabanco wrote:
Hey Mike, we just ran the survey and something strange happened.

A user name only returned for rows 1-10. Is there any way to change it so
that a user name returns once aperson puts somethign into column A,
regardless of how far down in the sheet we are?



"Mike H" wrote:
Hi,

Right click the sheet tab, view code and paste this in

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:A10")) Is Nothing Then' Change to suit
Target.Offset(0, 25).Value = Environ("UserName")
End If
End Sub

Mike

"nabanco" wrote:

Hello,

Is there a way to automatically populate column Z with the user name who
puts text in column A?

Thank you- Hide quoted text -

- Show quoted text -