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: 115
Alansidman has a spectacular aura aboutAlansidman has a spectacular aura aboutAlansidman has a spectacular aura about
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