Delete rows if

[avyrex1926]

Perfect thanks.

Now it works with

    For i = .Rows -1 To 0 Step -1