Environ Variable
Sub Find_EnvironData()
Dim i As Integer
ActiveSheet.UsedRange.Clear
For i = 1 To 38
ActiveSheet.Cells(i, 1).Value = Environ(i)
Next
End Sub
?environ("COMPUTERNAME")
PAVANKUMAR-PC
?environ(6)
COMPUTERNAME=PAVANKUMAR-PC
Download the workbook to find the environ elements