Ошибка выхода за границы для каждого sh в операторе ws.Shapes

Question

У меня есть следующая подпрограмма, которая должна перебрать все фигуры на листе и что-то сделать:

Private Sub plasser_knappar(ws As Worksheet)
    Dim sh As Shape

    For Each sh In ws.Shapes
        Debug.Print "Do stuff"
    Next sh
End Sub

Однако на одном из моих листов появляется ошибка, когда код достигает строкиFor Each sh in ws.Shapes - "Ошибка времени выполнения -2147352567 (80020009) Индекс в указанной коллекции выходит за пределы" .Эта ошибка не возникает на других листах в книге.Может кто-нибудь пролить свет на то, что может быть проблема здесь?

Answer 1

Обсуждается этот код ошибки на MSDN , и похоже, что это вызвано поврежденной книгой.