Create Conditional Formatting via Code

[jim may]

On a newly created sheet I include formulas in Column V. I need to Highlight ALL cells where the formula produces "DUP TRANS"... the following 2 lines are not acheiving this. How can I alter them to acheive my goal?

TIA,

Jim

'****************************************
Range("V:V").FormatConditions.Delete
Range("V2:V" & LR).FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=$V2=""DUP TRANS"""

'****************************************

 

[jim may]

I more completed the code with this code. Once I incorporate it into my procedure I'm getting a R/T 9 error Subscript out of range on line in RED. Any ideas? Tks, Jim

Range("V2:V" & LR).FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=$V2=""DUP TRANS"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.399945066682943
    End With
    Selection.FormatConditions(1).StopIfTrue = False

 

[jim may]

Got it -- Thanks... Jim

'****************************************
Range("V2:V" & LR).Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=$V2=""DUP TRANS"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.399945066682943
    End With
    Selection.FormatConditions(1).StopIfTrue = False
'End With
'****************************************