Changing the font color of a cell based on value in another cell

SOLVED!

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim StrokeRange As Range
    Dim IMMRange As Range
    Dim cell As Range
    Dim Measure As String
    
    Set StrokeRange = Range("F4:K4")
    Set IMMRange = Range("F5:K5")
    'Measure = Range("D4")
    
    For Each cell In StrokeRange
      Measure = Range("D4")
        If cell = Measure Then
            cell.Font.Color = 0     'Black
        ElseIf cell > Measure Then
            cell.Font.Color = 32768 'Green
        ElseIf cell < Measure Then
            cell.Font.Color = 128   'Red
     End If
    Next cell

    For Each cell In IMMRange
      Measure = Range("D5")
        If cell = Measure Then
            cell.Font.Color = 0     'Black
        ElseIf cell > Measure Then
            cell.Font.Color = 32768 'Green
        ElseIf cell < Measure Then
            cell.Font.Color = 128   'Red
     End If
    Next cell
    
End Sub