Sub X()
    Dim objSeries As Series
    Dim rngColours As Range
    Dim lngIndex As Long
    
    Set rngColours = Range("B2:B5")
    lngIndex = 1
    With ActiveChart
        For Each objSeries In .SeriesCollection
            objSeries.Format.Fill.ForeColor.RGB = rngColours.Cells(lngIndex).Interior.Color
            lngIndex = lngIndex + 1
        Next
    End With
    
End Sub