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

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

Can anyone see why?


Code
-------------------
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 Su
-------------------

--
liquidho
-----------------------------------------------------------------------
liquidhot's Profile: http://www.excelforum.com/member.php...fo&userid=2467
View this thread: http://www.excelforum.com/showthread.php?threadid=38247