Try

Activesheet.DrawingObjects.Delete

If this post helps click Yes
---------------
Jacob Skaria


"pablo k" wrote:

Dear newsgroupers,

In Excel 2007 I want to copy a worksheet that contains some shapes to a
new workbook and remove the shapes from the copy before I save the new
workbook.

When I use the expression:
ActiveSheet.Shapes.SelectAll
Selection.Delete

I get an error saying I am running low on memory.
I use a laptop with 1 GB of memory.

Is the code correct?
Is there another solution?

Please advise,

pablo k