Sub demoRGB()
Dim r As Range, arr
For Each r In Range("A1:A8")
arr = Split(r, ",")
r.Interior.color = RGB(CInt(arr(0)), CInt(arr(1)), CInt(arr(2)))
r.Font.color = RGB(255 - CInt(arr(0)), 255 - CInt(arr(1)), 255 - CInt(arr(2)))
Next r
Sub demoRGB()
Dim r As Range, arr
For Each r In Range("A1:A8")
arr = Split(r, ",")
r.Offset(0, 1).Interior.Color = RGB(CInt(arr(0)), CInt(arr(1)), CInt(arr(2)))
r.Offset(0, 1).Font.Color = RGB(255 - CInt(arr(0)), 255 - CInt(arr(1)), 255 - CInt(arr(2)))
Next
End Sub