Deleting all charts & shapes on a sheet

Submitted by Vishesh on 9 July, 2011 - 21:07

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

ExcelExperts.com