Sub ShowEnviron()
'lists all envionment variables
Dim strg As String
Dim x As Long
strg = "Environ Values 1 to 40" & vbCrLf & _
"=======================" & vbCrLf
For x = 1 To 40
strg = strg & x & " " & Environ(x) & vbCrLf
Next x
Debug.Print strg
End Sub