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