Update Excel Cells with color | Developer's Notes

Sub Update_Row_Colors()

Dim LRow As Integer

Dim LCell As String

Dim LColorCells As String

'Start at row 7

LRow = 7
'Update row colors for the first 2000 rows

While LRow < 2000

LCell = "C" & LRow

'Color will changed in columns A to K

LColorCells = "A" & LRow & ":" & "K" & LRow
Select Case Left(Range(LCell).Value, 6)
'Set row color to light blue

Case "007007"

Range(LColorCells).Interior.ColorIndex = 34

Range(LColorCells).Interior.Pattern = xlSolid
'Set row color to light green

Case "030087"

Rows(LRow & ":" & LRow).Select

Range(LColorCells).Interior.ColorIndex = 35

Range(LColorCells).Interior.Pattern = xlSolid
'Set row color to light yellow

Case "063599"

Rows(LRow & ":" & LRow).Select

Range(LColorCells).Interior.ColorIndex = 19

Range(LColorCells).Interior.Pattern = xlSolid
'Default all other rows to no color

Case Else

Rows(LRow & ":" & LRow).Select

Range(LColorCells).Interior.ColorIndex = xlNone
End Select
LRow = LRow + 1

Wend
Range("A1").Select
End Sub