Sub Environment_Information()
                                                     ' Lists all environment variables
                                                     ' on active sheet
    Dim EvCount As Integer                           ' Declaring variable
    EvCount = 1                                      ' Setting start number
    
    Do Until Environ(EvCount) = ""                   ' Starting loop
        Cells(EvCount, 1).Value = Environ(EvCount)   ' Inserting info on into the first column
                                                     ' of the active sheet
        EvCount = EvCount + 1                        ' Jump to the next variable
    
    Loop                                             ' Repeat steps until there is no more info

End Sub