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

Thanks

David

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

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

Vaya con Dios,
Chuck, CABGx3



"bradasley" wrote:

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

Thanks

David

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


"bradasley" wrote in
message
...
How can I get a username to appear in a cell?

Thanks

David

look here
http://tinyurl.com/qqsm8
or
editnamedefinename 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

--
Don Guillett
SalesAid Software

"bradasley" wrote in message
...
How can I get a username to appear in a cell?

Thanks

David

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

Vaya con Dios,
Chuck, CABGx3



"Don Guillett" wrote:

look here
http://tinyurl.com/qqsm8
or
editnamedefinename 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

--
Don Guillett
SalesAid Software

"bradasley" wrote in message
...
How can I get a username to appear in a cell?

Thanks

David