Deleting charts on a sheet

[Guest]

How do I select all of the charts on a sheet to delete them? The chart names are going to change everytime, so my existing code isn't good enough

ActiveSheet.Shapes.Range(Array("Chart 82", "Chart 83")).Selec
Selection.Delet

Thanks in advnace

John

 

[Dave Peterson]

Maybe:

ActiveSheet.ChartObjects.Delete

How do I select all of the charts on a sheet to delete them? The chart names are going to change everytime, so my existing code isn't good enough.

ActiveSheet.Shapes.Range(Array("Chart 82", "Chart 83")).Select
Selection.Delete

Thanks in advnace.

John

 

[Flystar]

Try this:

Dim i As Integer

For i = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(i).Delete
Next