VB to call the Windows NT login/username

[ianquest]

I am trying to call the windows NT login/username on a cell using the VB script below.

Function UserNameWindows() As String
UserNameWindows = Environ("USERNAME")
End Function

However, if I am to call it on the cell as:

=UserNameWindows()

I get
<TABLE style="WIDTH: 54pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=72 border=0><COLGROUP><COL style="WIDTH: 54pt" width=72><TBODY><TR style="HEIGHT: 15.75pt" height=21><TD style="BORDER-RIGHT: #f0f0f0; BORDER-TOP: #f0f0f0; BORDER-LEFT: #f0f0f0; WIDTH: 54pt; BORDER-BOTTOM: #f0f0f0; HEIGHT: 15.75pt; BACKGROUND-COLOR: transparent" align=middle width=72 height=21>#NAME?</TD></TR></TBODY></TABLE>
as the answer.

Can anyone assist, please. Thanks!

 

[VoG]

It works for me.

Where did you put the code? It has to go in a regular module.

 

[ianquest]

I placed it on the tab. Made a right click and clicked on View Code and paste the code in there

 

[VoG]

It won't work from there.

Press ALT + F11 to open the Visual Basic Editor, select Module from the Insert menu then put the code in there.

 

[ianquest]

Thanks so much. It worked.