Column color based on series name?

Hi,

So far I haven't found an answer to this. I have to reformat about 25 charts and I want the columns to be colored based on the series name so that it is the same in all the charts. I found this one macro, and it worked initially when I tested it, but then it just stopped and I can't get it to work again!? Basically, you are supposed to just create a set of color coded index cells.

Any help appreciated (or why this stupid macros might stop working).

Please Login or Register  to view this content.

Please add code tags to your post.

Post workbook example where the code is not working.

Ok - after I fixed the code, the macros will run - until you save the sheet. When you reopen the sheet and try to run it gives the following error:

With ActiveChart.SeriesCollection(1)

Run Time Error 91
Object variable or with block variable not set

WTF?

I attached the worksheet with the macro.

When you reopen the workbook a cell would be active rather than a chart.
If you select the chart first then run the code does it work again?

Try using code that does not require the chart to be selected

Please Login or Register  to view this content.