I think this is what you want...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("$B$1").Font.Color = vbBlack ' A1 enables display of value in B1
ElseIf Intersect(Target, Range("$E$1:$F$1")) Is Nothing Then ' clicking anywhere other than E1 and F1 hides the text
Range("$B$1").Font.Color = Range("$B$1").Interior.Color
End If
End Sub
alternatively, rather than changing the text color you can just put value in B1 with VBA like so...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("$B$1").Value = "Your Text"
ElseIf Intersect(Target, Range("$E$1:$F$1")) Is Nothing Then
Range("$B$1").ClearContents
End If
End Sub
Bookmarks