Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.