Sub RGB_XX()
Dim i As Integer
Dim e As Integer
Dim R As String
Dim G As String
Dim B As String
e = ActiveSheet.[A65536].End(xlUp).Row
For i = 1 To e
R = Split(Cells(i, "A"), ",")(0)
G = Split(Cells(i, "A"), ",")(1)
B = Split(Cells(i, "A"), ",")(2)
Cells(i, "A").Interior.Color = RGB(R, G, B)
Next
End Sub
