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

我正在寻找一个更好的解决scheme，在MS Excel和Libre Office Calc之间转换文件时发生的问题。

对于错误的描述，你可以看到https://ask.libreoffice.org/en/question/19176/infinite-white-boxes/它有一个解决scheme，不适合我，因为它隐藏太多。

我已经写了一个对接丑陋的function，这是有效的，但在极less数情况下，崩溃excel：

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多次来摆脱白色的盒子。 如何删除所有具有一个特定名称的对象不那么丑陋？