Thanks a lot: yes it helps

I won't even try to understand why this does work and
exactly the same with s.delete doesn't, but it's surely
bizar.

Christof


-----Original Message-----
does this help?

Sub ShapesCut()
For Each s In ActiveSheet.Shapes
s.Cut
Next
End Sub

"Christof"
wrote in
message ...
Chaps,

I have a macro which calls a function to delete all
shapes on a worksheet.
If that sheet holds many shapes (100+), then the code
crashes while deleting the shapes: (memory at ... could
not be read)

I've tried many implementations to delete these shapes
(deleteAll, for each, ...) but I always end up in the
same situation

Can somebody give me the best way to avoid this
problem?

thanks


.