Free for PREMIUM members
Dim r As Range, s As String
For Each r In Range("A1", Range("A1").End(xlDown))
s = s & """" & r & """, "
Range("B1") = Mid(s, 1, Len(s) - 2)
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.