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

Shee, Wb

Views 1921 Downloads 820


ANmarAmdeen
592
Attachments
Graphics VBA-Excel
Revisions

v1.0