VBA Select Entire Row when cell is selected

[bamaisgreat]

Do any you have away I can change the code below to have the entire row change to red instead of just the selected cell? Thanks as always

 Cells.Select
    Selection.FormatConditions.Add Type:=xlTextString, String:="(OBSOLETE", _
        TextOperator:=xlBeginsWith
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    ' adam test
    Dim test As Integer
    test = Selection.Row
    ' end test
    
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

 

[Yongle]

Try

With Selection.EntireRow.FormatConditions(1).Interior

 

[bamaisgreat]

Yongle, I tried adding the code you mentioned above but Im still only getting the cell to change to red instead of the entire row.

      Cells.Select
    Selection.FormatConditions.Add Type:=xlTextString, String:="(OBSOLETE", _
        TextOperator:=xlBeginsWith
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
 
    
  '  With Selection.FormatConditions(1).Interior
    With Selection.EntireRow.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("C12").Select
 
End Sub

 

[Yongle]

Delete any old format conditions that no longer apply
- every time you run macro containing .FormatConditions.Add another condition is added and they may conflict with each other

try this

Sub NewRule()
    With Cells
        .FormatConditions.Add Type:=xlExpression, Formula1:="=COUNTIF(1:1,""OBSOLETE"")>0"
        .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
        .FormatConditions(1).StopIfTrue = False
    End With
End Sub

It should highlight the row if any cell value in that row = "obsolete"