IF THEN LOOP with ActiveCell

[Vanish29]

Hello,
I am trying to use an If Then Loop, but I cannot seem to get it to function properly
Final Product:
Excel will look at Column AN and if the cell value is True, then it will select the entire row and color it orange. Then it will go down to the next cell and check, until it reaches a blank cell.

Here is my current code

   Dim i As Long
   i = 1
   Do While Cells(i, "AN").Value <> ""
      If Cells(i, "AN").Value = "True" Then
           ActiveCell.EntireRow.Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 820980
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
      End If
      i = i + 1
   Loop

I think my problem may be the ActiveCell.EntireRow.Select, but I am not certain how to fix it.
I have been searching through forums and google for a while now, with this being the 15th iteration of code, to no avail.

 

[My Aswer Is This]

Try this:

Sub My_Sub()
'Modified 10/23/2018 5:55 PM  EDT
Application.ScreenUpdating = False
Dim r As Range
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "AN").End(xlUp).Row
For Each r In Range("AN1:AN" & Lastrow)
    If r.Value = "True" Then
    
        With r.EntireRow.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 820980
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    End If
Next
Application.ScreenUpdating = True
End Sub

 

[Vanish29]

This works great.
So I was correct in thinking that the ActiveCell was causing the issues.
Thank you very much.
SOLVED

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

This works great.
So I was correct in thinking that the ActiveCell was causing the issues.
Thank you very much.
SOLVED