This type of list is valuable for determining how a certain color will print on your printer.
The color index number represents the position of a particular color on the sample palette. To view the default palette, click Cells on the Format menu, and then click the Pattern tab. The number is incremented from left-to-right and then down. On the default palette, black has the index number of 1, and cyan has a color index of 8.
Note This macro prints a sample of 56 colors even though later versions of Excel support many more colors.
Sample Visual Basic procedure
' Begin error trapping.
On Error GoTo Done
' Put the word Color in active cell.
ActiveCell.Formula = "Color"
' Put the words Color Index Number one cell to right of active cell.
ActiveCell.Offset(0, 1).Formula = "Color Index Number"
' Select one cell down from active cell.
' Begin loop from 1 to 56.
For xColor = 1 To 56
' Apply color and pattern properties to active cell.
.ColorIndex = xColor
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
' Put color index in cell to right of active cell.
ActiveCell.Offset(0, 1).Formula = xColor
' Select next cell down.
' Increment For loop.
Article ID: 213801 - Last Review: Jan 31, 2007 - Revision: 1