Function CountColour(Rng As Range, ColourMatch As Integer, BackgroundOrFont As String)
'Rng is the set of cells to be checked
'ColurMatch is the Color INDEX of the colour being tested for
'BackgroundOrFont requires an "F" or "B" to indicate whether to test Font or Background colour

Dim c As Range, TempStore As Long

TempStore = 0

Select Case BackgroundOrFont
    Case "B"
        For Each c In Rng
            If c.Interior.ColorIndex = ColourMatch Then
                TempStore = TempStore + 1
            End If
        Next
    Case "F"
        For Each c In Rng
            If c.Font.ColorIndex = ColourMatch Then
                TempStore = TempStore + 1
            End If
        Next
    Case Else
        CountColour = "Choose F or B only"
        Exit Function
End Select

CountColour = TempStore

End Function

Sub List_Color_Indexes()
For i = 1 To 56
    Activesheet.Cells(i, 1).Interior.ColorIndex = i
Next i
End Sub