Seems like it would be easier to cut the chart and start over but try this

Sub deleteseries()
ActiveSheet.ChartObjects("Chart 1").Activate
On Error Resume Next
For i = 20 To 1 Step -1
ActiveChart.SeriesCollection(i).Delete
Next
End Sub

--
Don Guillett
SalesAid Software

"Mika" wrote in message
...
I'm trying to delete all 20 series and trendlines of a shape. My code
doesn't delete them. What is going wrong?

ActiveSheet.ChartObjects("Shape 1").Activate

For i = 1 To 20
Err.Clear
ActiveChart.SeriesCollection(1).Delete
Err.Clear
Next i

Thanks,
Mika