Código de color de fuente VBA

Haga clic derecho en el nombre de la hoja de trabajo (en su esquina inferior izquierda, como Hoja1), vea el código y pegue el siguiente código:

Private Sub Worksheet_SelectionChange (ByVal Target As Range)

Si Range("BZ" & Selection.Row).Font.Color = vbRed Then

Selection.EntireRow.Font.ColorIndex = xlAutomatic