To changes row color base on cell value

To changes row color base on cell value

Sub ChangeColor()
lRow = Range("u:u").End(xlUp).Row
Set MR1 = Range("u13:u100" & lRow)
For Each cell In MR1
Select Case cell.Value
Case "Red"
cell_colour = 3
Case "Blue"
cell_colour = 33
Case "TOTAL"
cell_colour = 6
Case Else
cell_colour = 0
End Select
cell.EntireRow.Interior.ColorIndex = cell_colour
Next
End Sub