How to show current user name in a cell?

Question

In most of the online resource I can find usually show me how to retrieve this information in VBA. Is there any direct way to get this information in a cell?

For example as simple as =ENVIRON('User') (which did not work)

score 51 · Accepted Answer · edited Mar 09 '16 at 11:56

51

Based on the instructions at the link below, do the following.

In VBA insert a new module and paste in this code:

Public Function UserName()
    UserName = Environ$("UserName")
End Function

Call the function using the formula:

=Username()

Based on instructions at:

https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f

edited Mar 09 '16 at 11:56

answered Aug 03 '11 at 22:52

Jon Egerton

40,401
11
97
129

1

Thanks! It did not work for me before because I did not create a new module. Now it is all good. – Anthony Kong Aug 04 '11 at 01:14
1

for anyone coming across this in 2016 the link above does not work – northern-bradley Jan 16 '16 at 07:51

sangorys · Answer 2 · 2018-12-10T10:28:11.050

13

Without VBA macro, you can use this tips to get the username from the path :

=MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("\",INFO("DIRECTORY"),10),1000))-LEN("C:\Users\"))

edited Dec 10 '18 at 10:28

answered Dec 10 '18 at 10:16

sangorys

1,161
10
16

1

This only works if you save the workbook in your user's directory. At work I save mine on a networked drive, so it shows part of the local IP address. – Travis Oct 04 '21 at 15:11

score 5 · Answer 3 · edited Feb 19 '23 at 20:54

5

Example: to view the Windows User Name on Cell C5, you can use this script:

Range("C5").Value = ": " & Environ("USERNAME")

edited Feb 19 '23 at 20:54

Nickolay

31,095
13
107
185

answered Sep 28 '12 at 02:04

web solusi

59
1
1

score 5 · Answer 4 · answered Mar 22 '16 at 19:34

5

if you don't want to create a UDF in VBA or you can't, this could be an alternative.

=Cell("Filename",A1) this will give you the full file name, and from this you could get the user name with something like this:

=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)

This Formula runs only from a workbook saved earlier.

You must start from 4th position because of the first slash from the drive.

answered Mar 22 '16 at 19:34

Rafa Barragan

602
9
24

I like this answer but sadly for documents pulled from the cloud the address does not contain the current user. – ΩmegaMan Oct 23 '18 at 16:53

score 5 · Answer 5 · answered Nov 20 '17 at 19:08

5

This displays the name of the current user:

Function Username() As String
    Username = Application.Username
End Function

The property Application.Username holds the name entered with the installation of MS Office.

Enter this formula in a cell:

=Username()

answered Nov 20 '17 at 19:08

rolacher

68
1
4

Work at first try, thanks! It returned the full name as "Adam Smith". – Michael Larsson Aug 11 '22 at 09:21
The only real solution - after 5+ years, in a virtual and remote environment gives back my full name. ...where my login name is a 8 digit number, and my home dir is mapped to H:\ – V-Mark Feb 02 '23 at 17:00

score 3 · Answer 6 · answered Aug 03 '11 at 22:51

The simplest way is to create a VBA macro that wraps that function, like so:

Function UserNameWindows() As String
    UserName = Environ("USERNAME")
End Function

Then call it from the cell:

=UserNameWindows()

See this article for more details, and other ways.

How to show current user name in a cell?

6 Answers6

Linked