Free for PREMIUM members
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!
Open in new window
That deleted all objects. I just wanted objects deleted...
Sub WipeOffRng(WipeRange As Range)
Dim isect As Range
Dim wkSheet As Worksheet
Dim Shp As Shape
Dim rngShp As Range
' Set the worksheet
Set wkSheet = WipeRange.Parent
' Loop through every shape
For Each Shp In wkSheet.Shapes
' Dtermine the block range
Set rngShp = Range(Shp.TopLeftCell, Shp.BottomRightCell)
' Test for any sort of overlap
'If Not Intersect(WipeRange, rngShp) Is Nothing Then
' Test for fully inside
Set isect = Intersect(WipeRange, rngShp)
If isect Is Nothing Then
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.