Return to VBA Code Examples

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

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!

alt text

 

Learn More!


<<Return to VBA Examples