Good Morning,

I've got 50 charts on one sheet; each with a varying number of lines
on each chart.
Need to adjust all the series in one move. Thought I'd be able to have
a loop within a loop:

'===========================
Sub FindChartSeries()

Dim myChartObject As ChartObject
Dim mySeries As Series

For Each myChartObject In ActiveSheet.ChartObjects

myChartObject.Select

For Each mySeries In myChartObject.SeriesCollection
MsgBox "found series"
Next

Next myChartObject

End Sub
'===========================


Why is the above bugging out?
Any help much appreciated

Jason.