VBA Code to Set Shading in Selected Rows

[MadManTom]

I want to shade columns A through H for any row (after row 4) whose value in column A begins with 'A_', 'T_', or 'L_'. I execute the following block in my Autpen macro but the result is that any row that does not contain any text in column A gets highlighted instead. Can anyone help me figure out what I'm doing wrong? I'd really appreciate it!

Dim valstart As String
Dim O As Long
Dim lastrow
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

lastrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

For O = 4 To lastrow

valstart = Left(Cells(O, "A").Value, 2)
If (valstart = A_) Or (valstart = T_) Or (valstart = L_) then

Range(Cells(O, 1), Cells(O, 8)).Select

With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
​

End If
​

Next O

 

[VoG]

Try

lastrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

For O = 4 To lastrow

    valstart = Left(Cells(O, "A").Value, 2)
    If valstart = "A_" Or valstart = "T_" Or valstart = "L_" Then

        With Range(Cells(O, 1), Cells(O, 8))

        .ColorIndex = 15
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        End With

    End If

Next O

 

[RSXchin]

any reason you don't want to use conditional formatting?

 

[MadManTom]

Peter,

Double quotes worked like a charm. I thought I had tried this before but I think I might have used single quotes instead of double. At any rate, I'm in business now. Can't thank you enough for your help and especially for responding so fast.
Go have a salty dog and relax for the rest of the weekend!

Best Regards,

Tom

 

[MadManTom]

I'm very inexperienced with VBA so I'm not sure how to implement conditional formatting. Thanks, just the same, for your reply. I'll research the topic when I get a chance. Have a good weekend, and thanks!