Sub Remove()

Dim i, iOffset As Long

iOffset = Range("A" & Rows.Count).End(xlUp).Row - 1

For i = iOffset To 0 Step -1

If Range("A1").Offset(iOffset, 0).Value = "000XXXXX" The
Rows(iOffset + 1).Delete

Next i

End Su

--
Kaa
-----------------------------------------------------------------------
Kaak's Profile: http://www.excelforum.com/member.php...nfo&userid=751
View this thread: http://www.excelforum.com/showthread.php?threadid=55590