Is there text in a cell or not

[Kelly]

I know this should be simple but I can figure it out.

All I want to do is look at Cell A1 and if there is any
text in it then turn Cell B1 red. If there no text in it
or you take the text out the B1 cell is white.

 

[Kelly]

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

 

[Kelly]

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