Multiple Conditional Formatting and Color

[iamtherascalking]

What's wrong with the following?
It keeps getting caught at

.FormatConditions(1).Font.Color = RGB(255, 0, 0)

Sub Macro1()

    Cells.FormatConditions.Delete

    Columns("A:A").Select
    
    With Selection

        .FormatConditions.Add Type:=xlExpression, Formula1:="=OR($B1=""PASS"",$B1=""FAIL"")"
        
        .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

            With .FormatConditions(1).Font
                .Bold = True
                .Italic = False
                .TintAndShade = 0
            End With

        .FormatConditions(1).StopIfTrue = False

    End With

'=================================

    Columns("A:E").Select
    
    With Selection
    
        .FormatConditions.Add Type:=xlExpression, Formula1:="=OR($B1=""FAIL"",$B1=""SCRAP"")"
        
        .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

        .FormatConditions(1).Font.Color = RGB(255, 0, 0)
        .FormatConditions(1).Font.TintAndShade = 0

        .FormatConditions(1).StopIfTrue = False

    End With

End Sub

 

[iamtherascalking]

Yeah, that's the kicker. I made this script from recorded one; which like u said doesn't work itself!

 

[jasonb75]

I've tried editing the code in various ways, entering long code instead of using the With block, Color / ColorIndex.Defined red using RGB / vbRed / etc, with no success, same issue with every change.

Only thing I can suggest is maybe change the cell colour instead of font?

This code does that and hasn't tripped for me so hopefully if you can use this as an alternative, problem solved, otherwise I'm out of ideas.

Sub Macro6()
Cells.FormatConditions.Delete
    Columns("A:A").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=OR($B1=""Pass"",$B1=""Fail"")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Columns("A:E").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=OR($B1=""Fail"",$B1=""Scrap"")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub