Thread: Computer Name
View Single Post
 
Old 04-26-2019, 01:37 PM
Alansidman's Avatar
Alansidman Alansidman is offline Windows 10 Office 2019
עַם יִשְׂרָאֵל חַי
  
Join Date: Apr 2019
Location: Steamboat Springs
Posts: 79
Alansidman will become famous soon enoughAlansidman will become famous soon enough
Default
An alternative means to get the same results

Code:
Option Explicit

Sub CompName()
    MsgBox (Application.UserName)
    MsgBox (Environ("username"))
    MsgBox (Environ("computername"))
End Sub
Reply With Quote