If...Else If

I am trying to darken the interior of the cells that contain "O". I have attached the following code to a button to be excuted when clicked but the code is not reading what is in the cells and making the interior of the entire range clear. Why does it not recognize the cells that contain "O" and darken their interior?

Dim thecell
Range("C4:K9").Select
For Each thecell In Selection
If thecell.Value = "O" Then
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
ElseIf thecell.Value <> "O" Then
With Selection.Interior
.ColorIndex = xlNone
End With
End If
Next thecell

End Sub

Please Login or Register  to view this content.

A bit tidier

Please Login or Register  to view this content.