Getting Error on Cond Form VBA - Unable to Bold

[bubbapost]

Hello,

I am getting an error with the code below. The error is "Unable to set the Bold Property of the Font class"

Sub CFAHTNeg()
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=IF($M6=""Above"",TRUE,FALSE)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
 
With Selection.FormatConditions(1).Font
    .Bold = True
    .Color = 16777215
    .TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 255
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub

Any help would be greatly appreciated!

 

[GlennUK]

It works for me. I selected a range ( in an unprotected sheet ), with no Conditional Formats there, from M6 to M17, with some of the entries being "Above", and it runs with no errors.

Note, you don't need to put a comparison that results in a True/False inside an IF. This would work:
Formula1:="=$M6=""Above"""