I have found my solution:
I wanted this function:
' Return the user's name.
Public Function username() As String
Const UNLEN = 256 ' Max user name length.
Dim user_name As String
Dim name_len As Long
user_name = Space$(UNLEN + 1)
name_len = Len(user_name)
If GetUserName(user_name, name_len) = 0 Then
username = "<unknown>"
Else
username = Left$(user_name, name_len - 1)
End If
End Function
To place the username value in a cell I am using:
Sheet1.Range("B1") = username()
So far it's working as expected.
Thanks,
Eric
|