Code help change cell color...Not working

[JaredMcCullough]

Its been quite a while since I have used vba/macros. Thought this was an easy one but I guess not. The codes intent is to just change cell color based on 1 of 2 variables. I keep getting an error stating no "for" statement? Wish I stayed more involved so I wouldnt feel so stupid.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
 
For Each cell In Range("O5:U5000")
 
    If cell.Value = "P" Then
     cell.Interior.Color = vbGreen
 
    If cell.Value = "F" Then
    cell.Interior.Color = vbRed
 
End If
Next cell
End Sub

 

[Comfy]

You're missing an End If

Dim cell As Range
 
For Each cell In Range("O5:U5000")
 
    If cell.Value = "P" Then
     cell.Interior.Color = vbGreen
 
    If cell.Value = "F" Then
    cell.Interior.Color = vbRed
 
End If
End If
Next cell

 

[Norie]

Try this.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
 
    For Each cell In Range("O5:U5000")
 
        If cell.Value = "P" Then
            cell.Interior.Color = vbGreen
        End If

        If cell.Value = "F" Then
            cell.Interior.Color = vbRed
        End If

    Next cell

End Sub