VBA - HOW TO: DELETE ALL OBJECTS IN EXCEL SHEET
Plain Jane solution for deleting objects in an excel sheet
-----------------------------------------
Sub Delete_Stuff()
'Specific to Control Name
Dim Stuff As Shape
On Error Resume Next
For Each Stuff In ThisWorkbook.Sheets(1).Shapes
If InStr(UCase(Stuff.Name), UCase("label")) Then
Stuff.Delete
End If
Next
End Sub
---------------------------------------------------------------------
Sub Delete_Stuff2()
Dim Stuff As Shape
On Error Resume Next
For Each Stuff In ThisWorkbook.Sheets(1).Shapes
Stuff.Delete
Next
End Sub
----------------------------------------------------------------
Sub Delete_Stuff3()
ThisWorkbook.Sheets(1).DrawingObjects.Delete
End Sub