Thank for your atention Phox.
I have all data in one series, i did what you said but it assings a diferent color to each category. I want just two colors, Intel and AMD.
Sub ChangeBarColors()
Dim i As Long
Dim YLabels() As Variant
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
YLabels = .XValues
For i = LBound(YLabels) To UBound(YLabels)
If Left(YLabels(i), 3) = "AMD" Then
.Points(i).Interior.ColorIndex = 3
Else
.Points(i).Interior.ColorIndex = 5
End If
Next i
End With
End Sub