Hi,

I just recorded a simple macro that is supposed to deleta
a series of data from a chart. The thing is that
sometimes I have a number of series on the same chart and
I was to delete them with only one macro.

Sub Hreinsa()

ActiveSheet.ChartObjects("Chart 10").Activate
ActiveChart.ChartArea.Select
Application.Run "OnGenericSetSheetActive"
ActiveChart.SeriesCollection(1).Delete
End Sub

How can I delete all the series on the chart. Hope anyone
can help.

Thanks!