Change Cell color and Add text to Cell

[kiwikiki718]

Is there a way to change a cell color and add text to a specific cell if condition is True?

Ex. I have cell A1 that contains values of either True or False. If A1 is True, I want B1 to change to black and Display "Pass" in white font with the text size of 20.

I was wondering if this is possible with VBA coding.

Thanks in advance

 

[James006]

Hi,
You could test following event macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value = True Then
    With Target.Offset(0, 1)
        .Value = "Pass"
        .Font.Bold = True
        .Interior.Color = vbBlack
        .Font.Color = vbWhite
    End With
Else
    With Target.Offset(0, 1)
        .Value = "Failed"
        .Font.Bold = False
        .Interior.Color = xlNone
        .Font.Color = vbRed
    End With
End If
End Sub