sorry hit tab
try in a module
sub showenviron
dim x as integer
for x=1 to 50 '33 i think
msgbox("Environ " & x & " " & environ(x))
next x
end sub
put cursor at start of sub and click debug run. you can smarten this up, but this will show you all environ values.