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
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!