Sub EnvironListing()
Dim i As Integer, wb As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Set wb = ActiveWorkbook
On Error GoTo 0
If wb Is Nothing Then
Workbooks.Add
Else
wb.Sheets.Add
End If
i = 1
Do Until Environ(i) = ""
Cells(i, 1) = Environ(i)
i = i + 1
Loop
Range("A1:A" & i - 1).TextToColumns DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:="="
Columns.AutoFit
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Sub MsgBoxCompUserName()
MsgBox Environ("username")
End Sub
|