Sometimes the hardest solutions to figure out are the most mundane.
the lines
Should be switched to:![]()
ActiveChart.SeriesCollection(2).Select ActiveChart.SeriesCollection(2).ChartType = xlColumnClustered With Selection.Format.Fill ...etc
So that the format fill acts on the Series, not the ChartType object.![]()
ActiveChart.SeriesCollection(2).ChartType = xlColumnClustered ActiveChart.SeriesCollection(2).Select With Selection.Format.Fill ...etc
Doh!
Works like a charm now.
Bookmarks