Deleting Objects from All sheets of a Workbook

[pvkvimalan]

Dear All,

I have about 200 Worksheets in an Excel Workbook. All the sheets contain various objects. I initially started by selecting the objects by <Find & Select> <Goto Special><Objects> and delete all. I then managed to find a VBA within MrExcel, that was able to delete the objects, but only for active sheet, which means I have to run the code every single time. Could anyone help me to apply for the workbook as a whole?

The code I used as follows,


Sub DelShp()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
sh.Delete
Next sh
End Sub

 

[ajetrumpet]

I would assume this would suit you just mine, my friend:

Sub DelShp_foreach_worksheet()

Dim ws As Worksheet
Dim sh As Shape

For Each ws In ActiveWorkbook.Worksheets
    ws.Select
        For Each sh In ActiveSheet.Shapes
            sh.Delete
        Next sh

Next ws

End Function

 

[Fluff]

How about

Sub pvkvimalan()
   Dim Ws As Worksheet
   For Each Ws In Worksheets
      Ws.DrawingObjects.Delete
   Next Ws
End Sub

 

[pvkvimalan]

Dear @Fluff & @ajetrumpet,

First of all, Thank you both for the swift response. I check both, while with the code from @ajetrumpet I received a compile error, whereas the code provided by @Fluff solved the issue. Appreciate both of your time and efforts.

 

[Fluff]

Glad we could help & thanks for the feedback