Hello,

Please help out a newbie. How can I assign a cell value from a VBA
function? I have the following in my VBA code:
Private Sub Workbook_Open()
MsgBox username()
End Sub


' 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


This works fine for displaying the Msgbox, but I'd like to put the
username in a specific spreadsheet cell.

Any help is appreciated.
Eric

instead of
MsgBox username()
put
ActiveSheet.Range("A1") = username()


- Manges

--
Message posted from http://www.ExcelForum.com

Eric,

Just type:

=username()

in the cell.

HTH,
Nikos

"easy_forshezee" wrote in message
om...
Hello,

Please help out a newbie. How can I assign a cell value from a VBA
function? I have the following in my VBA code:
Private Sub Workbook_Open()
MsgBox username()
End Sub


' 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


This works fine for displaying the Msgbox, but I'd like to put the
username in a specific spreadsheet cell.

Any help is appreciated.
Eric

Eric,

Just type:

=username()

in the cell.

HTH,
Nikos

"easy_forshezee" wrote in message
om...
Hello,

Please help out a newbie. How can I assign a cell value from a VBA
function? I have the following in my VBA code:
Private Sub Workbook_Open()
MsgBox username()
End Sub


' 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


This works fine for displaying the Msgbox, but I'd like to put the
username in a specific spreadsheet cell.

Any help is appreciated.
Eric