Software Development
Dear Sir,
I want to add one more column for DNS lookup in below mention code:
Sub ClearValues()
'ResetValues
Rows("4:5124").Select
Selection.ClearContents
Rows("4:4").Select
End Sub
Sub RunPing()
i = 4
While (ActiveSheet.Cells(i, 1) <> "")
'Retrieve IP Address
strCompAddress =...