Deleting all charts & shapes on a sheet

Vishesh's picture
To delete all charts
sub DeleteAllCharts()
Sheet1.ChartObjects.delete
End Sub
To delete all shapes (this includes charts as well)
sub DeleteAllShapes()
Sheet1.Shapes.SelectAll
Selection.Delete
End Sub