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
|Need help with excel question, fill in cell below category?||7||32|
|Excel: Find text between 2nd hyphen and next space||10||30|
|excel cannot open the file because the file format or file extension is not valid||5||29|
|Excel callender with date slider||5||25|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!