Try this

sub move_2s_to_sheet2()

range([b:b].find(what:="2"), cells(rows.count,
2).end(xlup)).entirerow.cut _
sheets("sheet2").[a1]

end sub



Col


--
colofnature
------------------------------------------------------------------------
colofnature's Profile: http://www.excelforum.com/member.php...o&userid=34356
View this thread: http://www.excelforum.com/showthread...hreadid=547451