If Statement >2 Criteria Delete Row

[CoraG]

If Worksheet.(Sheet1).Cells(i,"AA").Value = "False" And _
Worksheet.(Sheet1).Cells(i,"AB").Value = "False" And _
Worksheet.(Sheet1).Cells(i, "AC").Value = "False" Then _

Then how to I say delete that row if it meets all those requirements. This is what I have now.


Dim Lastrow As Long
Dim i As Long
Dim row_number As Long



Application.ScreenUpdating = False

Lastrow = Worksheets("RSTU").Cells(Rows.Count, 1).End(xlUp).Row
row_number = 8
For i = Lastrow To 8 Step -1

If Worksheets("RSTU").Cells(i, "AA").Value = "FALSE" And _
Worksheets("RSTU").Cells(i, "AB").Value = "FALSE" And _
Worksheets("RSTU").Cells(i, "AC").Value = "FALSE" Then

Worksheets("RSTU").Rows(row_number & ":" & row_number).Delete
row_number = row_number - 1


End If
Next i

MsgBox "Complete"

Worksheets("RSTU").Cells(8, 1).Select


Application.ScreenUpdating = True

 

[Fluff]

Try

With Worksheets("RSTU")
   For i = lastrow To 8 Step -1
      If .Cells(i, "AA").Value = "FALSE" And _
         .Cells(i, "AB").Value = "FALSE" And _
         .Cells(i, "AC").Value = "FALSE" Then
      
         .Rows(i).Delete
      End If
   Next i
End With