Use this worksheet event macro:

Private Sub Worksheet_Change(ByVal Target As Range)
Set r = Range("a:a")
If Intersect(Target, r) Is Nothing Then Exit Sub
Application.EnableEvents = False
Cells(Target.Row, "Z").Value = Environ("username")
Application.EnableEvents = True
End Sub
--
Gary''s Student - gsnu200752


"nabanco" wrote:

Hello,

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

Thank you