DeleteAllShapes

Delete all shapes in a sheet


Public

Tested

My Own Work
Sub DeleteAllShapes(Optional Shee = "Active", Optional Wb = "This")
If Wb = "This" Then Wb = ThisWorkbook.Name
If Wb = "Active" Then Wb = ActiveWorkbook.Name
If Shee = "Active" Then Shee = Workbooks(Wb).Worksheets(1).Name
On Error Resume Next
For Each Na In Workbooks(Wb).Worksheets(Shee).Shapes
Na.Delete
Next
On Error GoTo 0
End Sub

Optional Shee = "Active", Optional Wb = "This"

Views 2783 Downloads 1095

VBA-Excel Graphics
ANmarAmdeen
719
Attachments
Revisions

v2.0