Hi,

Yes this is the part that I cannot do.

It is possible to find the cell which doesn't equal 'abc' and the
delete it (i.e. move the cell up but then it will not look in the ver
next cell.

What I mean is..

if you have the following information:

cell A1 = Title
A2 = abc
A3 = abc
A4 = ggggg
A5 = ffffff
A6 = abc

and then using your code, replace 'cell.Value = ""' with

cell.entirerow.Delete Shift:=xlUp

this will find that cell A4 doesn't equal 'abc' and delete the row an
shift the row up one.

The problem is that the loop will check cell A5 next but A5 will no
equal 'abc' because it was moved up the column so it won't have foun
ffffff.

Does this make sense?

Joh

--
johncassel
-----------------------------------------------------------------------
johncassell's Profile: http://www.excelforum.com/member.php...fo&userid=2501
View this thread: http://www.excelforum.com/showthread.php?threadid=56562