I don't understand why this doesn't work. If I replace
rng
with the actual range Range("B4:D" & Range("A" & Rows.Count).End(xlUp).Row)
it does.
VBA Code:
Dim rng As Range
rng = Range("B4:D" & Range("A" & Rows.Count).End(xlUp).Row)
rng.NumberFormat = "0%"
rng.FormatConditions.Add Type:=xlTextString, String:="N/A", TextOperator:=xlContains
rng.FormatConditions(1).Interior.Color = 3355443
rng.FormatConditions(1).Font.ThemeColor = xlThemeColorDark1