Delete Chart Series if exists

[krish T]

I have surprising problem:

When I am using the following code to create new chart:

Charts.Add

Sometimes immediately after this command, it is adding Series1 and sometimes it is not adding any Sereis..So I am adding new series using the following commands:

    ActiveChart.ChartType = xlXYScatterLinesNoMarkers

 ActiveChart.ChartArea.Select

           ActiveChart.SeriesCollection.NewSeries
           ActiveChart.SeriesCollection(1).XValues = Range(Sheets("Sheet1").Cells(5, 1), Sheets("Sheet1").Cells(4 + numtp, 1))
           ActiveChart.SeriesCollection(1).Values = Range(Sheets("Sheet1").Cells(5, 2), Sheets("Sheet1").Cells(4 + numtp, 2))
           ActiveChart.SeriesCollection(1).Name = ""KList1"

I am giving name to series using the above command. But problem is if it is adding series 1 immediately after

Charts.Add

command, it still remains in the chart. So I would like to delete if this Series1 exists immediately after

Charts.Add

command.

Can any body help me on this?

Thanks in advance.

[Andy Pope]

If the active cell is within data series will automatically be added.
To remove the series use,

do while activechart.seriescollection.count > 0
    activechart.seriescollection(1).delete
loop

[krish T]

Thanks Andy Pope. Its worked fine.