各位板上的大大早上好
小弟想跟大家分享一个用VBA"正确"删除特定未知数量物件的方法。
这个方法并不是小弟自己发明的，而是遇到困难，去找的答案。
原始出处
https://tinyurl.com/yaaktrwr
想要分享的原因是因为，看完这边文章可以少走很多冤枉路。
重点是，内文提及的错误方法，在网络上竟是随手可得的Sample code的变形。
也就是说，像我们这种没有受训练的人，会欲哭无泪，充满挫折。
这个应用的情境是，欲删除利用VBA所建立的个定物件，不知其数量及名称。
同时在同一个页面有其他物件。
为怕连结失效，小弟将正确Sample code放置如下。
Sub DeleteUnwantedShapesImproved()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
' Delete the "Delete Me" shape
If Left(shp.Name, 6) = "Delete" Then shp.Delete
Next
End Sub
供大家参考。