macros and excel, conditional color formatting

I recently posted... see link.... but I think it actually belongs in this forum

http://www.excelforum.com/excel-charting-and-pivots/1076628-conditional-formatting-of-chart.html#post4040250

I don't know anything about macros but as you can see in the link, I am trying to manipulate the colors of a chart.
I found this link http://datapigtechnologies.com/blog/index.php/automatically-set-chart-series-colors-to-match-source-cell-colors/
and was able to open the attached file. When I open it with mine, I am able to use the macro (from the last link) to run on my open workbook.

How do I get this macro into my worksheet permanently.... again I know nothing about this sort of thing but I do have the developer toolbar

And, the one I ran didn't work properly. The colors were supposed to match the table (C3:L3) but they are now white.

capturer n.PNG
Planning Tool 4-8-15.xlsx

erro.PNG

I am having trouble with this.....

The colors you posted make sense... I can just break it down further for ten separate colors...

In the meantime I am getting an error when I use this macro. It says runtime error. What am I doing wrong?

The macro from the other page was as follows... but I like how yours can have different colors.



Sub CellColorsToChart()
Dim oChart As ChartObject
Dim MySeries As Series
Dim FormulaSplit As Variant
Dim SourceRange As Range
Dim SourceRangeColor As Long

'Loop through all charts in the active sheet
For Each oChart In ActiveSheet.ChartObjects

'Loop through all series in the target chart
For Each MySeries In oChart.Chart.SeriesCollection

'Get Source Data Range for the target series
FormulaSplit = Split(MySeries.Formula, ",")

'Capture the first cell in the source range then trap the color
Set SourceRange = Range(FormulaSplit(2)).Item(1)
SourceRangeColor = SourceRange.Interior.Color

On Error Resume Next
'Coloring for Excel 2003
MySeries.Interior.Color = SourceRangeColor
MySeries.Border.Color = SourceRangeColor
MySeries.MarkerBackgroundColorIndex = SourceRangeColor
MySeries.MarkerForegroundColorIndex = SourceRangeColor

'Coloring for Excel 2007 and 2010
MySeries.MarkerBackgroundColor = SourceRangeColor
MySeries.MarkerForegroundColor = SourceRangeColor
MySeries.Format.Line.ForeColor.RGB = SourceRangeColor
MySeries.Format.Line.BackColor.RGB = SourceRangeColor
MySeries.Format.Fill.ForeColor.RGB = SourceRangeColor

Next MySeries
Next oChart

End Sub

Thank you! That is great!