User Name Automatically Populate
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
|