VBA – Delete All Autoshapes
Delete all Autoshapes From a Worksheet
The following is a Macro to loop through all Autoshapes on a given worksheet and delete them.

1 2 3 4 5 6 7 8 9 |
Sub DeleteAllShapes() Dim GetShape As Shape For Each GetShape In ActiveSheet.Shapes GetShape.Delete Next End Sub |
VBA Coding Made Easy
Stop searching for VBA code online. Learn more about AutoMacro – A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!