EnvironList

List of all variables of Environ
It will populate them in sheet range starting C4
Needs Cutstring3 to separate variable name from value

You can also check EnvVar_All

CodeFunctionName
What is this?

Public

Tested

Original Work
Sub EnvironList()
    X1 = 4
    For I = 1 To 250
        ThisVar = Environ(I)
        Range("C" & X1).Value = I
        Range("D" & X1).Value = CutString3(ThisVar, 1, "=")
        Range("E" & X1).Value = CutString3(ThisVar, 2, "=")
        Range("F" & X1).Value = ThisVar
        X1 = X1 + 1
    Next
End Sub

' List found so far
'1    ALLUSERSPROFILE
'2    APPDATA
'3    CommonProgramFiles
'4    CommonProgramFiles(x86)
'5    CommonProgramW6432
'6    COMPUTERNAME
'7    ComSpec
'8    DriverData
'9    FPS_BROWSER_APP_PROFILE_STRING
'10    FPS_BROWSER_USER_PROFILE_STRING
'11    HOMEDRIVE
'12    HOMEPATH
'13    LOCALAPPDATA
'14    LOGONSERVER
'15    NUMBER_OF_PROCESSORS
'16    OneDrive
'17    OneDriveCommercial
'18    OneDriveConsumer
'19    OS
'20    Path
'21    PATHEXT
'22    PROCESSOR_ARCHITECTURE
'23    PROCESSOR_IDENTIFIER
'24    PROCESSOR_LEVEL
'25    PROCESSOR_REVISION
'26    ProgramData
'27    ProgramFiles
'28    ProgramFiles(x86)
'29    ProgramW6432
'30    PSModulePath
'31    PUBLIC
'32    SESSIONNAME
'33    SystemDrive
'34    SystemRoot
'35    TEMP
'36    TMP
'37    USERDOMAIN
'38    USERDOMAIN_ROAMINGPROFILE
'39    USERNAME
'40    USERPROFILE
'41    windir

None

Views 1,027

Downloads 283

CodeID
DB ID