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.

delete autoshapes

 

Sub DeleteAllShapes()

Dim GetShape As Shape

    For Each GetShape In ActiveSheet.Shapes
        GetShape.Delete
    Next

End Sub