VBA – Delete All Autoshapes
Written by
Reviewed by
Last updated on July 19, 2021
Delete all Autoshapes From a Worksheet
The following is a Macro to loop through all Autoshapes on a given worksheet and delete them.

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!