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 525 Downloads 224

'Shapes', 'objects', 'drawing'

ANmarAmdeen
326
Attachments
Graphics VBA-Excel
Revisions

v1.0