Sometimes the hardest solutions to figure out are the most mundane.

the lines
ActiveChart.SeriesCollection(2).Select               
ActiveChart.SeriesCollection(2).ChartType = xlColumnClustered
With Selection.Format.Fill
...etc
Should be switched to:
ActiveChart.SeriesCollection(2).ChartType = xlColumnClustered
ActiveChart.SeriesCollection(2).Select               
With Selection.Format.Fill
...etc
So that the format fill acts on the Series, not the ChartType object.
Doh!

Works like a charm now.