Dear

Try the below and feedback...

Dim objSysInfo, objUser
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
MsgBox objUser.displayName

If this post helps click Yes
---------------
Jacob Skaria


"jatman" wrote:

i am using the following codes to obtain a user name:

Function ThisUser()
ThisUser = Environ("UserName")
End Function
Function MyName()
MyName = Application.UserName
End Function

both work, ThisUser returns my login id (ex. jat) and MyName returns my name
that i have entered in Excel's Personalization area (ex. jat man)

What i would like is to get the MyName to be retrieved from my actual
profile. When i go to Start, my name shows at the top (first last name), and
that is set up when my profile is created. How do i retrieve this in a macro?

jat