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 380 Downloads 138

'Shapes', 'objects', 'drawing'

ANmarAmdeen
324
Attachments
Graphics VBA-Excel
Revisions

v1.0