If Mid(Range("A1").Offset(iOffset, 0).Value,1,3) = "000" Then
Rows(iOffset + 1).Delete


--
Kaak
------------------------------------------------------------------------
Kaak's Profile: http://www.excelforum.com/member.php...fo&userid=7513
View this thread: http://www.excelforum.com/showthread...hreadid=555904