Cell references error with recorded Conditional Formatting (Formula) macro

Thanks Joseph. Such a simple (but not obvious) solution.

As a followup, with the next part of my macro, I'm trying to add a second Conditional Format =$D3=$D2 to a subset of the same range Range("A3").CurrentRegion.Resize(, 9). So, the first CF adds a top border to the entire row (12 columns) when the invoice # in column D is not equal to the cell above and the 2nd CF uses white font to hide the values in only the first 9 columns when the invoice # in column D is equal to the cell above.

Here's the code for both conditions. The code in red is the second CF that I can't get to work.

When I run the macro and look at the second CF, it says NO FORMAT SET.

I'm guessing there is something simple/stupid that I'm missing.


'Conditional Format rows with top border if Invoice # is different than cell above
Range("A3").CurrentRegion.Select
With Selection
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D3<>$D2"
.FormatConditions(.FormatConditions.Count).SetFirstPriority
.FormatConditions(1).Borders(xlTop).LineStyle = xlContinuous
.FormatConditions(1).StopIfTrue = False
End With

'Conditional Format cells with white fond (i.e. hide data) if Invoice # is same as cell above
Range("A3").CurrentRegion.Resize(, 9).Select
With Selection
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D2=$D3"
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
End With

In the second CF, I tried changing FormatConditions(.FormatConditions.Count) to FormatConditions(2) and FormatConditions(.FormatConditions.Count) but it didn't make any difference.