You can write some VBA to do it.

Sub Return_UserName()

Sheets("sheet1").Range("A2").Value = Application.UserName

End Sub


--
Excel_Geek


------------------------------------------------------------------------
Excel_Geek's Profile: http://www.excelforum.com/member.php...o&userid=26423
View this thread: http://www.excelforum.com/showthread...hreadid=398347