Sub AllEnvironVariables() Dim strEnviron As String Dim VarSplit As Variant Dim i As Long For i = 1 To 255 strEnviron = Environ$(i) If LenB(strEnviron) = 0& Then GoTo TryNext: VarSplit = Split(strEnviron, "=") If UBound(VarSplit) > 1 Then Stop Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Value = i Range("B" & Range("B" & Rows.Count).End(xlUp).Row + 1).Value = VarSplit(0) Range("C" & Range("C" & Rows.Count).End(xlUp).Row + 1).Value = VarSplit(1) TryNext: Next End Sub
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter