How to get Name of person signed on Computer

[CLR]

Hi All...........

This is my code, retrieved from kind souls in these groups.

With wkSht.PageSetup
.CenterFooter = ActiveWorkbook.FullName
.RightFooter = "Rev-L " & Range("DateSecret").Value
.LeftFooter = "Printed by: " & Application.UserName
End With

It all works fine, except for the "UserName" part. My intentions were to
retrieve the name of the person who signed on the computer, but this code
returns the name of the person that this computer's Excel was Installed to.
May this code be modified, or is there some other way to make it print out
who the Computer User is?

Many thanks in advance.....

Vaya con Dios,
Chuck, CABGx3

 

[Michel Pierron]

Hi CLR,
One way:
..LeftFooter = "Printed by: " & CreateObject("WScript.Network").UserName

MP

 

[CLR]

How cool it is!!!!!!..........
Your code works exactly like I wanted ...............
Thank You very much kind Sir........

Vaya con Dios,
Chuck, CABGx3

 

[CLR]

How cool it is!!!!!!!!!!

Your code works exactly like I want it to.........
Thank you very much kind Sir.........

Vaya con Dios,
Chuck, CABGx3