Change Row color based on cell value

[tedy]

Hi,

I'm trying to change range row color based on cell value.
my code works but instead of changing range row color it changes entire row.
I want To change color just in A:H.

Thank you

here is my code:

Sub Roww()

Dim Tim As Date
Dim oCell As Range
Dim drow As Integer

Tim = TimeValue("01:09:00")

Sheets("Sheet3").Select
   For Each oCell In Range("d3:d100")
       If oCell.Value > Tim Then
          drow = oCell.row()
         
          Rows(drow & ":" & drow).Select
          
          With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

Moderators note: code tags added for you - this time

[AlphaFrog]

Try this...

    Dim Tim    As Date
    Dim oCell  As Range
    
    Tim = TimeValue("01:09:00")
    
    With Sheets("Sheet3")
        For Each oCell In .Range("D3", .Range("D" & Rows.Count).End(xlUp))
            If oCell.Value > Tim Then
                With .Range("A" & oCell.Row).Resize(, 8).Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .Color = 65535
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
                End With
            End If
        Next oCell
    End With

[FDibbins]

tedy, welcome to the forum.

2 things though...
1. do you really need to do this through VBA? regular conditional formatting will do it for you.

2. Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

[tedy]

Sorry for not keeping the rules, this was my first question.
Next time I will do it properly
Thank you one more time

[tedy]

Thank you very much
This is exactly what I wanted to do.
Appreciated. Thank you