excel2003 ActiveSheet.Shapes.SelectAll - out of memory!

[nodari]

sometime I need that my VBA delete Autoshapes from the sheet.

I use this:

ActiveSheet.Shapes.SelectAll: Selection.Delete


But sometime it doesn't work giveing me error: Run-time error '7': out of memory.

what can you advice to solve this problem?

 

[VoG]

Try like this

Sub test()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
    shp.Delete
Next shp
End Sub

 

[nodari]

thank you very much, the problem is solved.

only I didn't udnerstand, why the problem doesn't on the quantity of shapes, but by other parameter . . . this parameter changes the meening of dim elements by 0.000001.

Did I wrote very none understable ?