I have a subroutine that looks at 3 cells to get an R, G and B value, then fills a pre-defined range of cells with that color (using this:
Private Sub Worksheet_Change(ByVal Target As Range)
' error checking here
Range("C3:E5").Interior.Color = RGB([A1].Value, [B1].Value, [C1].Value)
End Sub...