Hi
Dim Obj
For Each Obj In ActiveSheet.Shapes
Obj.Delete
Next Obj

HTH
Cordially
Pascal

"ExcelMonkey" a écrit dans le message
de ...
I have a routine which deletes all the contents of a
sheet. Clear All only takes out the text, and
formatting. How do I also get rid of any charts, buttons
or other objects? Without deleting the sheet, I need to
make the sheet completely empty.


THanks