删除具有特定名称的所有对象

Question

我正在寻找更好的解决方案来解决在MS Excel和Libre Office Calc之间转换文件时出现的问题。

对于错误说明，您可以看到https://ask.libreoffice.org/en/question/19176/infinite-white-boxes/哪个解决方案对我不起作用，因为它隐藏得太多。

我写了一个很难看的功能，但是在极少数情况下崩溃很有效：

Private Sub DelCustomShapes_Click()
Dim objDrawingObject As Object
1:
For Each objDrawingObject In Tabelle1.DrawingObjects
    If objDrawingObject.Name = "CustomShape 1" Then
        objDrawingObject.Delete
        GoTo 1
    End If
Next objDrawingObject
End Sub

如果我省略了有问题的Goto，那么第一个对象被删除后，Next将无法正常工作，我收到一条错误消息+我需要调用该函数超过100次才能摆脱白色的盒子。 如何删除具有一个特定名称的所有对象，并且不那么难看？