Color Chart Series on the Basis of Category Name

If you want to set the color of series in the chart on the basis of category names. Try this code -

Sub cond_format_charts()

Dim cht As Chart
Dim srs As Series
Dim i As Long

Dim rng As Range


'change chart name here
Set cht = Sheets("Sheet1").ChartObjects("Chart 3").Chart

' set series here
Set srs = cht.SeriesCollection(1)

    For i = 1 To srs.Points.Count
        For Each rng In Sheets("Sheet1").Range("j5:j10").Cells
            If UCase(srs.XValues(i)) = UCase(rng.Value) Then
                srs.Points(i).Interior.Color = rng.Offset(0, 2).Interior.Color
                Exit For
            End If
        Next
    Next

End Sub

Download Working File