Applying RGB to Named Range

[bkanne]

Can someone please help me write a macro that will also me to apply a particular R,G,B Color Scheme to individually named cell ranges?

Essentially, I am trying to create a heatmap using an applied color scheme. Please see the attached template for an example, which should make it quite clear what I am attempted to do.

Thank you so much!

BK

 

[Hui]

Sub Set_Colors()

Dim nm As Range

For Each nm In Range("BC21:BC35")
  Range(nm.Text).Interior.Color = RGB(nm.Offset(0, 2), nm.Offset(0, 3), nm.Offset(0, 4))
Next

End Sub

or see the attached file:

 

[bkanne]

Hui - thank you as always. An elegant, simple solution!