This is what Ive got to work with. Insted of where the X
is I need that to be any text for example a name. If the
text or name is enter the other cell turns red If the text
name is removed from the cell it turns back to white.

If Target.Address = "$F$14" Or Target.Address = "$F$16"
Then
If UCase(Target) = "X" Then
If Len(Range("F22")) = 0 Then
Range("F22").Interior.ColorIndex = 3

End If
End If
End If

If Target.Address = "$F$14" Or Target.Address
= "$F$16" Then
If UCase(Target) = "X" Then
If Len(Range("F23")) = 0 Then
Range("F23").Interior.ColorIndex = 3
End If
End If
End If