Excel - check if chart exists / delete chart

[JFF]

The code below creates a chart. I would like to put this code in a loop and then 1) have code before it that checks to see if this "Results" charts exists, and 2) if it does exist - to delete it. Please help.

MyRange = Range("B4:B204")
Range(MyRange).Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Info").Range(MyRange), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Info"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.HasLegend = False
'- Names the Chart.
ActiveChart.Parent.Name = "Results"

Thanks
John

 

[AnotherHiggins]

Just use the macro recorder to record yourself deleting the chart. Insert that code at the beginning of what you already have.

Just before that code, put in:
[COLOR=blue white]on error resume next[/color]
and just after the recorded code:
[COLOR=blue white]on error goto 0[/color]


[tt]_____
[blue]-John[/blue]
[/tt][red]"If you're flammable and have legs, you are never blocking a fire exit."[/red]
-Mitch Hedberg

Help us help you. Please read FAQ181-2886 before posting.

 

[Asspin]

This is what I would use.

    Application.DisplayAlerts = False
    On Error Resume Next
    ActiveWorkbook.Charts.Delete
    On Error GoTo 0
    Application.DisplayAlerts = True

 

[JFF]

I have other Charts in the sheet that I do want to keep. Will the ...

ActiveWorkbook.Charts.Delete

... delete all of them?