Collection

Dim colors As New Collection
Dim init_done As Boolean
Dim x

Private Sub Worksheet_Activate()
If init_done Then Exit Sub
For i = 1 To 6
x = Worksheets(2).Cells(i, 2).Value
colors.Add Item:=Worksheets(2).Cells(i, 1).Interior.ColorIndex, key:=Worksheets(2).Cells(i, 2).Value
Next
init_done = True
End Sub