Using a VBA UDF

Function UserName()
UserName = Computer("UserName")
End Function

Simply use like =UserName()

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Grant Robertson" <Grant wrote in
message ...