It is usually best to make the sheet with the shapes the active sheet
when doing anything with shapes.
I've seen the same problem you describe and I believe the cause
lies with a shape index number being outside of the count range.
Here is an alternative you can try...

Sub RemoveAllShapes()
Worksheets("Sheet4").Select
Worksheets("Sheet4").Shapes.SelectAll
Selection.ShapeRange.Delete
End Sub

Jim Cone
San Francisco, USA



"Laguna" wrote in message
...
i am suing excel 2000 vba and win 2000 platform
I use the following code to delete all shapes in a worksheet

Do While Book.Worksheets(nameofsheet).Shapes.Count 0
Book.Worksheets(nameofsheet).Shapes(Book.Worksheet s(nameofsheet).Shapes.Count).Delete
Loop

Sometimes the excel tell that a windows error and the process is terminated
during the middle. I do the similar operation with other sheets, there is no
error.
Somtimes the process can run successfully. The error is by chance.

I have tried to use a more powerful machine with same platform to test it.
It stilll have such error by chance.

What can i do to avoid the error, or how can this delete shape method be
improved?

Thank you!