Conditional Formatting

[helpexcel]

I'm using this code to try and conditional format the rows with the values shown below. My problem is "Red" is the only color that's working, and i don't know why.

Dim i As LongDim Lastrow, Lastcolumn As Long
Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = 1 To Lastrow
        Lastcolumn = .Cells(i, .Columns.Count).End(xlToLeft).Column
        If .Cells(i, 13).Value = "Red" Then
            .Range(.Cells(i, 1), .Cells(i, Lastcolumn)).Interior.Color = vbRed
        ElseIf Cells(i, 13).Value = "Green" Then
            .Range(.Cells(i, 1), .Cells(i, Lastcolumn)).Interior.Color = vbGreen
        ElseIf Cells(i, 13).Value = "Yellow" Then
            .Range(.Cells(i, 1), .Cells(i, Lastcolumn)).Interior.Color = vbYellow
        End If
    Next i
End With

 

[Fluff]

Make sure that the cells with "Green" & "Yellow" are
a) Spelt correctly
b) Are lower case with the exception of the first character
c) Have nothing else in the cell, including leading/trailing spaces.

 

[helpexcel]

All good on a,b, and c. It always stops at the first If. So if i switch "red" and "green", then I only get green.

 

[Fluff]

Got it, on both the elseif lines you've missed the . from infront of cells.
So on those lines it's looking at the active sheet.

 

[helpexcel]

sometime you can't see the forest through the trees...THANK YOU!!!

 

[Fluff]

You're welcome & thanks for the feedback.