Deleting charts on a sheet
 

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

Deleting charts on a sheet
 

Maybe:

ActiveSheet.ChartObjects.Delete


John wrote:

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

--

Dave Peterson

Deleting charts on a sheet
 

Try this:

Dim i As Integer

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

--
Message posted from http://www.ExcelForum.com