【VBA】ColorIndexの一覧を表示

以下を実行することで、一目で確認できる。
※0-56までに割り当てられているみたい(57からはエラーになったので)

Sub color()
    For i = 1 To 56
        Cells(i, 1).Value = i
        Cells(i, 2).Interior.ColorIndex = i
    Next
End Sub