Excel 2007-VBA-根据单元格值在范围上应用条件格式

Question

For some reason, I can't figure out why the same formula that I can apply to conditional formatting regularly doesn't work in VBA. I'm trying to highlight the row in that range if one of the cells in each row is not blank.

Below is the code I'm working with:

With Range("$A3:$L1000")
.FormatConditions.Delete
.FormatConditions.Add xlExpression, Formula1:="=($J3)<>"""""
.FormatConditions(1).Interior.ColorIndex = 46

End With

When it applies to the document, here's the formula in Conditional Formatting

Any help/advice you all could provide would be greatly appreciated.

Answer 1

Update:

I solved this by recording a macro where I assigned the conditional formatting to a single line, copied the formatting, then pasted it over the active range.

Thanks to everyone for your input, and hope this helps someone else down the road!

Code

Range("A3:M3").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=($J3)<>"""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False