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!
In putting together some code to delete these I used - This is the short version to my question:
Sub DeleteShapes() Dim shp As Shape, i As integer i = 1 For Each shp In ActiveSheet.Shapes ActiveSheet.Shapes("Picture [b]i[/b]").Delete i = i + 1 Next i = 0 End Sub
Join the community of 500,000 technology professionals and ask your questions.