Help with find if value is present then delete entrie row

[antthorne]

Hi

Wondered if someone can help

I've got the following code

If Sheets("Data").Range("u11").Value > 1 Then
    Sheets("Swansea").Select
Last17 = Cells(Rows.Count, "D").End(xlUp).Row
    For i = Last17 To 1 Step -1
        If (Cells(i, "b").Value) = "PO" Then
            Cells(i, "A").EntireRow.Delete
        End If
    Next i
End If

It basically goes through Sheet Swansea and if it finds PO in Column B it deletes the Entire Row. This works fine, but my title row (Row 3) has PO in it so it deletes this row too. Is there a way to stop the next I at row 4?

Thanks in advance
Anthony

 

[rjwebgraphix]

Tell it to stop at row 2 so it doesn't even look at row 1.

For i = Last17 To 2 Step -1

</pre>

 

[antthorne]

Hi rjwebgraphix

Thanks for your quick reply

I modified my code to

For i = Last17 To 4 Step -1

which now does not delete my title row

Thanks again

Anthony

 

[rjwebgraphix]

Ahh yes. Look like I replied too fast without enough reading, but you got the gist. Glad you got it taken care of.