I'm trying to incorporate some conditional formatting into my VBA. For simplicity, I simply recorded a macro defining what I wanted, and then started tweaking.

Oddly, the interior conditions work, but not the Font conditions. I keep getting "Run-time Error '1004': Application-defined or object-defined error". I also got this with the unmodified macro code when I tried to run it. Can anybody spot where this went astray? Thanks!

    Columns("A:AB").Select
    Range("A:AB").Activate
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=SUM($B1:$N1)=0"
    Selection.FormatConditions(Selection.FormatConditions.count).SetFirstPriority
    With Selection
        .FormatConditions(1).Font.ThemeColor = xlThemeColorDark1
        .FormatConditions(1).Font.TintAndShade = -0.349986266670736
        .FormatConditions(1).Interior.Pattern = xlNone
        .FormatConditions(1).Interior.TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False