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
Bookmarks