Free for PREMIUM members
Go Premium for a chance to win a PS4. Enter to Win
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim Dic As Object
Dim rng As Variant
Dim x As Long
Dim arrUList As Variant
If ActiveCell.Value <> "" Then Exit Sub
'change the Sheet name below ("Data") to match yours
rng = Sheets("Data").Range("A2", Sheets("Data").Range("A2").End(xlDown))
Set Dic = CreateObject("Scripting.Dictionary")
Dic.compareMode = vbTextCompare
For x = 1 To UBound(rng, 1)
Dic.Item(rng(x, 1)) = rng(x, 1)
'assign Dic to array then insert in cells
arrUList = Dic.items
For x = 0 To UBound(arrUList)
ActiveCell.Offset(x, 0).Value = arrUList(x)
Open in new window
Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.