User ID/Network Logon

[lucky]

Hi All
Is it possible to have a function that runs with Auto_open of a workbook that can return the users ID or Network Logon to a cell in that work book??

Thanks in anticipation.

 

[Colo]

Hi! Please copy this into a standard module

Sub Autpen()
Dim objWSH As Object
Set objWSH = CreateObject("WScript.Network")
Cells(1, 1).Value = "UserDomain " & objWSH.UserDomain
Cells(2, 1).Value = "ComputerName " & objWSH.ComputerName
Cells(3, 1).Value = "UserName " & objWSH.UserName
End Sub

 

[lucky]

Thanks Colo!!

May the luck be with you......

Lucky