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.
Sub DeleteSomeShapes() Dim shp As Shape, top As Range, btm As Range Set top = [B2] Set btm = Cells([A4] - 7, 18) For Each shp In ActiveSheet.Shapes If Not Intersect(shp.TopLeftCell, Range(top, btm)) Is Nothing Then shp.Delete End If Next shp End Sub
|Convert SuperCalc files to Excel||9||45|
|Excel 2007 Comparing Cell Contents with IF Statements||12||38|
|Excel formula to return X:Y axis in a cell||6||26|
|Set WorkSheet not Working||9||43|