Application.usermane

L

lanser

I would like to be able to add the user name to a cell in a spreadshee
using Application.UserName can anyone help please
 
B

Bob Phillips

Range("A1") = Application.Username

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
R

Ritujoy

lanser, you've identified the correct object. It really comes down to
how you want to use it? If you want it in a function:

Function AppInfo(AppInfoType As Integer)
If AppInfoType = 1 Then
AppInfo = Application.UserName
Else
AppInfo = "Enter Info Type"
End If
End Function


In a worksheet if you type ---> "=AppInfo(1)"
the result will be the user name

If you want it to be programmatic, then just stick that just assign
application.username to a variable and do what you will with that
variable. I might have misunderstood. Hope that helps.
 
Top