Deleting charts on a sheet

J

John

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
 
D

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
Click to expand...
 
F

Flystar

Try this:

Dim i As Integer

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