I'm attempting to color an excel spreadsheet every other row, without affecting cells that already have a color in them other than values 37 and 20.

However, I'm not sure I'm correctly using the ColorIndex properly and currently my code doesn't color anything.

Can anyone see why?

Sub ColorRows()
'//This subroutine ignores cells colored something other than 37 and 20.
Dim Row As Range 'The Current row
Dim OrderRange As Range 'The Project number column
Dim Cell As Range
Dim RowCell As Range
Dim Color As Boolean 'Alternating Color
Dim CountCell As Integer 'Current project number

Set OrderRange = Range("A14", "A500")
Color = True
CountCell = 1
        
For Each Cell In OrderRange
    If Cell.Value = CountCell Then 'see if it's in order
        Set Row = Range(Cell, "EE" & Cell.Row) 'Select row out to column EE

        For Each RowCell In Row
            Select Case RowCell.Interior.ColorIndex
                Case 37
                    If Color Then
                        RowCell.Interior.ColorIndex = 37 'Darkerblue color
                    Else
                        RowCell.Interior.ColorIndex = 20 'lighterblue color
                    End If
                Case 20
                    If Color Then
                        RowCell.Interior.ColorIndex = 37 'Darkerblue color
                    Else
                        RowCell.Interior.ColorIndex = 20 'lighterblue color
                    End If
                Case Else
                    'Do nothing
            End Select
        Next
        If Color Then
            Color = False
        Else
            Color = True
        End If
            
        CountCell = CountCell + 1
    ElseIf Cell.Value = "" Then 'see if count should be reset
        CountCell = 1
        Color = True
    End If
Next

Call Develop_GANTT

End Sub