use of WinUsername

[craigexcel]

In looking for a way for VB to specifically recognize me as the person opening a workbook, I came across WinUsername. However, when the following is executed, a no (or a null?) value is returned.

Dim UserName As String
UserName = WinUsername
UserName = MsgBox("username is " & UserName, vbOKOnly)

I'm working on a company network. Is there another way for WinUsername to specifically identify me, or can you suggest alternate VB that would execute ONLY when I open the workbook? Thanks.

 

[Smitty]

Here's one way:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> GetMyName()
    <SPAN style="color:#00007F">Dim</SPAN> CurrentUserName <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
        CurrentUserName = Environ("Username")
    MsgBox CurrentUserName
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

You can add a simple IF statement to validate your name after that.

HTH,

Smitty