I was wondering has anyone ever changed the color of a column chart to match the category instead of the series?

Ha_Pvt_Cht.JPG

What I would like is to identify the group with comp name and chnage the color so that all the AG's are the same color the Rm's etc. I cannot change these to series as this would mess other aspects of the

Pvtable.JPG

If I could somehow identify which Point in the seriescollection was linked to which category, I could then do this.
for example:
Sub HA_Chart_Colrs()
Dim Ws As Worksheet
Dim Cht As Chart
Set Ws = Worksheets("Harvesting")
Set Cht = Ws.ChartObjects("HA_Chart").Chart
Dim j As Integer
With Cht
For j = 1 To Xxxx -' No of points
If .FullSeriesCollection(3).Points(j).something = "AG" Then
With .FullSeriesCollection(3).Points(j).Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255 - (j * 2), 192, 0)
.Solid
End With
End If
Next j
End With

End Sub

Anyine can help I would really appreciate

Regards

Shawne