Bruce,

Try something like

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

Function LogonName() As String
Dim S As String: S = String$(255, " ")
Dim L As Long: L = Len(S)
If GetUserName(S, L) Then
LogonName = Left(S, L - 1)
End If
End Function


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

"Bruce A. Perry" wrote in message
...
Does anyone know how threw VBA to get the systems username
or login name. I can get the Application.UserName, but it
might not be the same for someone loging in at a diffrent
location?