How to fill cells with color from Excel.xlrgbColor.<name> specified in worksheet

[Rhodie72]

Background info:
I am trying to fill out a worksheet with a colour range from VBA named colours. The idea is to place the name of the colour in the cell and

cell.offset(0,1).Interior.color=xlrgbColor.

Here is a table of color names from the Excel.xlrgbColor.<1 to 143> range
Assume start begins with [A1]. So [A2] should be filled with colour named in [A1] etc. This VBA code is what I'm after. Good luck. Hope to see an answer to this one...

rgbAliceBlue		rgbIvory		rgbSalmon
rgbAntiqueWhite		rgbKhaki		rgbSandyBrown
rgbAqua		rgbLavenderBlush		rgbSeaGreen
rgbAquamarine		rgbLavender		rgbSeashell
rgbAzure		rgbLawnGreen		rgbSienna
rgbBeige		rgbLemonChiffon		rgbSilver
rgbBisque		rgbLightBlue		rgbSkyBlue
rgbBlack		rgbLightCoral		rgbSlateBlue
rgbBlanchedAlmond		rgbLightCyan		rgbSlateGray
rgbBlueViolet		rgbLightGoldenrodYellow		rgbSlateGrey
rgbBlue		rgbLightGray		rgbSnow
rgbBrown		rgbLightGreen		rgbSpringGreen
rgbBurlyWood		rgbLightGrey		rgbSteelBlue
rgbCadetBlue		rgbLightPink		rgbTan
rgbChartreuse		rgbLightSalmon		rgbTeal
rgbCoral		rgbLightSeaGreen		rgbThistle
rgbCornflowerBlue		rgbLightSkyBlue		rgbTomato
rgbCornsilk		rgbLightSlateGray		rgbTurquoise
rgbCrimson		rgbLightSlateGrey		rgbViolet
rgbDarkBlue		rgbLightSteelBlue		rgbWheat
rgbDarkCyan		rgbLightYellow		rgbWhiteSmoke
rgbDarkGoldenrod		rgbLimeGreen		rgbYellowGreen
rgbDarkGray		rgbLime		rgbYellow
rgbDarkGreen		rgbLinen
rgbDarkGrey		rgbMaroon
rgbDarkKhaki		rgbMediumAquamarine
rgbDarkMagenta		rgbMediumBlue
rgbDarkOliveGreen		rgbMediumOrchid
rgbDarkOrange		rgbMediumPurple
rgbDarkOrchid		rgbMediumSeaGreen
rgbDarkRed		rgbMediumSlateBlue
rgbDarkSalmon		rgbMediumSpringGreen
rgbDarkSeaGreen		rgbMediumTurquoise
rgbDarkSlateBlue		rgbMediumVioletRed
rgbDarkSlateGray		rgbMidnightBlue
rgbDarkSlateGrey		rgbMintCream
rgbDarkTurquoise		rgbMistyRose
rgbDarkViolet		rgbMoccasin
rgbDeepPink		rgbNavajoWhite
rgbDeepSkyBlue		rgbNavyBlue
rgbDimGray		rgbNavy
rgbDimGrey		rgbOldLace
rgbDodgerBlue		rgbOliveDrab
rgbFireBrick		rgbOlive
rgbFloralWhite		rgbOrangeRed
rgbForestGreen		rgbOrchid
rgbFuschia		rgbPaleGoldenrod
rgbGainsboro		rgbPaleGreen
rgbGhostWhite		rgbPaleTurquoise
rgbGold		rgbPaleVioletRed
rgbGoldenrod		rgbPapayaWhip
rgbGray		rgbPeachPuff
rgbGreenYellow		rgbPeru
rgbGreen		rgbPink
rgbGrey		rgbPlum
rgbHoneydew		rgbPowderBlue
rgbHotPink		rgbPurple
rgbIndianRed		rgbRed
rgbIndigo		rgbRosyBrown
		rgbRoyalBlue

<tbody>
</tbody>

Tried this on first column and failed:

For i = LBound(ColorArray1) To UBound(ColorArray1)

    With Range("A1")
        .Offset(i, 0).Value = ColorArray1(i)
        .Offset(i, 1).Interior.ColorIndex = Excel.XlRgbColor.ColorArray1(i)
    End With

Next i: i = 0

</pick>

 

[Norie]

I'm sorry but I don't think it's going to be possible to resolve the strings in the cells to the related VBA constants.

 

[mikerickson]

1) the xlrgbColors are being depreciated.
2) Since you've gone to the trouble to type the names into cells, you might as well type in the values they represent in the next cell.