17 February 2016
by Web Bureau
This has happened to me before on many occasions and I've just give up.
This time I decided to take a stance and it was very easy:
Sub DeleteObjects()
Dim obj As Object
For Each obj In ActiveSheet.Shapes
obj.Delete
Next
End Sub