DeleteAllShapes

Delete all shapes in a sheet

Sub DeleteAllShapes(Shee, Wb)
 On Error Resume Next
 For Each Na In Workbooks(Wb).Worksheets(Shee).Shapes
  Na.Delete
 Next
 on error goto 0
End Function

Parameters

Shee, Wb

Views 121 Downloads 50

Perm link


ANmarAmdeen
283
Attachments
Graphics VBA-Excel
Revisions

v1.0