Sub Populate_Username

Dim Text as String

Range("A2").Select
text = application.username

This does not populate the application.username at cell A2 so what needs to
be done to this code?

Range("A2").Value=Application.UserName

This will put in the username in ToolsOptions...General, NOT the network
or machine logon

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
www.nickhodge.co.uk
HIS


"zulfer7" wrote in message
...
Sub Populate_Username

Dim Text as String

Range("A2").Select
text = application.username

This does not populate the application.username at cell A2 so what needs
to
be done to this code?

The following will put the windows username in a cell. You will need to
change the sheetnames to suit your workbook and fiddle with the rest of the
code to make it do what you want.

Steve


-------------------------------
Option Explicit


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

Public Function GetUserName() As String
Dim sBuffer As String
Dim lSize As Long
Dim lRV As Long

lSize = 255
sBuffer = String(lSize, &H0)

lRV = GetUserNameAPI(sBuffer, lSize)

If lRV < 0 Then
GetUserName = Left(sBuffer, lSize - 1) ' -1 to remove trailing null
character
Else
GetUserName = ""
End If
End Function

Sub EnterUser()
Worksheets("Use Log").Visible = True
Worksheets("Use Log").Select
Range("a1").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = GetUserName
ActiveCell.Offset(0, 1).Value = Now
Worksheets("Use Log").Visible = False
Worksheets("Main").Select
End Sub

--------------------------------------

"Nick Hodge" wrote in message
...
Range("A2").Value=Application.UserName

This will put in the username in ToolsOptions...General, NOT the network
or machine logon

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
www.nickhodge.co.uk
HIS


"zulfer7" wrote in message
...
Sub Populate_Username

Dim Text as String

Range("A2").Select
text = application.username

This does not populate the application.username at cell A2 so what needs
to
be done to this code?

THIS WAS PERFECT, Thanks!

"Nick Hodge" wrote:

Range("A2").Value=Application.UserName

This will put in the username in ToolsOptions...General, NOT the network
or machine logon

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
www.nickhodge.co.uk
HIS


"zulfer7" wrote in message
...
Sub Populate_Username

Dim Text as String

Range("A2").Select
text = application.username

This does not populate the application.username at cell A2 so what needs
to
be done to this code?