Show username in a cell

[Guest]

How can I get a username to appear in a cell?

Thanks

David

 

[Guest]

With code........change the A1 as desired......

Sub username()
Range("A1").Value = ThisWorkbook.BuiltinDocumentProperties("author")
End Sub

Vaya con Dios,
Chuck, CABGx3

 

[Chip Pearson]

To get the user's logon name, use a VBA function like

Declare Function GetUserName Lib "advapi32.dll" Alias
"GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long


Function GetLogonName() As String
Dim N As Long: N = 255
Dim S As String
S = String(N, " ")
GetUserName S, N
GetLogonName = Left(S, N - 1)
End Function

You can then call this from a cell with =GetLogonName()

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


message
news:[email protected]...

 

[Don Guillett]

look here
http://tinyurl.com/qqsm8
or
edit>name>define>name it whatever you like such as ws
in the refers to box type =get.workspace(26)>ok

then, in a cell, just type in =ws

 

[Guest]

How cool that is Don!!..................a keeper here.

Vaya con Dios,
Chuck, CABGx3