The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!
Sub deleteShapes() Dim shp As Shape For Each shp In ActiveSheet.Shapes If Not Intersect(shp.TopLeftCell, Range("B2:R100")) Is Nothing Then shp.Delete End If Next End Sub
Join the community of 500,000 technology professionals and ask your questions.