Type Info:
Name As String
Dim ShortName As String ShortName = Application.User.Name MsgBox "You're short user name is " & ShortName