Current Username into a cell

[alexg]

I Am Generating a spreadsheet and need to use the current logged in username as a Variable quantity in a lookup - Does anyone know how i can get the curretn log in users username to appear in a cell in excel??

Kind reagrds

Alex

 

[NBVC]

Hi,

I have entered this into mywrkbook and it still does not give me my username...

Any ideas why?

Save the workbook, then close it and re-open it.

 

[bsnapool]

Working now... Thanks for your help..

 

[MarkAndrews]

Hello,

i think, and correct me if i'm wrong, nut it comes from the PC not excelas such, we use xp and on a network and my login name is the same as =environ(username).

Doh! you were right it picks from my login name

Thanks for this, could be very useful

 

[njimack]

Related point - to retrieve the full name of the user, I use the following code. It retrieves details from the Outlook Address Book...

        Dim myOlApp, myNameSpace As Object
        Dim Full_name, First_Name, Surname, User As String
        
        Set myOlApp = CreateObject("Outlook.Application")
        Set myNameSpace = myOlApp.GetNameSpace("MAPI")
            
        Full_name = myNameSpace.CurrentUser.Name
    
        First_Name = Right(Full_name, Len(Full_name) - WorksheetFunction.Search(",", Full_name) - 1)
        Surname = Left(Full_name, WorksheetFunction.Search(",", Full_name) - 1)
        User = First_Name & " " & Surname

 

[xapie128]

I have entered this into mywrkbook and it still does not give me my username...
Any ideas why?

Start Windows Explorer, click the + next to the C: drive, click the + next to Documents and Settings

In the next level below Documents and Settings you should see sub-folders like Administrator, All Users, Default User, etc.

One of the sub-folders near the button of that section will have the username in it. If it isn't your name then it is however the computer was setup as when Windows was loaded. If this is your computer as a stand-alone, then you should know (and recognize) what name it has. If it is a work computer on a network, then it should be your logon name. If it is a work computer on a network and you can't figure out the username, ask your IT personnel.

 

[bsnapool]

Hi

I tried your code and it comes up with an error message saying:

Invalid Ouside procedure

Highlights the first word on this row

  Set myOlApp = CreateObject("Outlook.Application")

 

[njimack]

Hi

I tried your code and it comes up with an error message saying:

Quote:

Invalid Ouside procedure

You probably need Outlook open while you run the code.