Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
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
Join the community of 500,000 technology professionals and ask your questions.