Cambiar color de texto a blanco según el valor de una celda con fórmula.

Con esta macro pude cambiar el color

Sub CambiarColor()
Cells(5, 7).CurrentRegion.Select
    With Selection.Font
        If Cells(1, 1).Value = 1 Then
            .Color = vbWhite
            TintAndShade = 0
        Else
            .Color = vbBlack
            .TintAndShade = 0
        End If
    End With
    Range("A1").Select
End Sub

Usa esta macro pégala en el modulo de la hoja donde tengas la fórmula

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") = 1 Then
    Range("g5:h10").Font.ColorIndex = 2
Else
    Range("g5:h10").Font.ColorIndex = 1
End If
end sub

en cuanto cambie la celda a 1 pondra el texto en blanco