Color cells bsed on table of RGB numbers

[nicksoph]

Hi
Im using Excel 2007 and have a table of 3 colums: Each row gives a colours RGB values in numbers from 1 to 255. I would like the 4th row to display the color based upon the numbers in the first cells.

Any help would be appreciated.

Best wishes
Nic

 

[VoG]

Try

Sub ColorMe()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    Range("D" & i).Interior.Color = RGB(Range("A" & i).Value, Range("B" & i).Value, Range("C" & i).Value)
Next i
End Sub