Hey Mike, we just ran the survey and something strange happened.

The user names only recorded through row 10. Everthing below that did not
return an user name. Is there something in the code that could be changed?
Trying to deliver a user name whenever a person puts text into the A colum,
even if it is A20000

Thank you

"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