I modified some code from Aaron Blood and Ivan F Moala at:
http://www.ozgrid.com/forum/showthre...t=27240&page=1

This is a find function that I am using to find all rows that contain
"Sales" in column J, and move them from Sheet1 to Sheet2. This
function works perfectly, but I'm wanting it do do a little more. If I
can figure it out, I'd like it to delete the rows from Sheet1 that it
pastes into Sheet2. I can write a little procedure after this function
to do this, but I was wondering if it is possible to do inside the
function.

This is what I'm using right now outside of the function, and it works
fine:
For Each tmpRng In rngSls
If ActiveCell.Value = "Sales" Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(1, 0).Select
Next

Any better solutions or ideas are greatly appreciated.

DejaVu


--
DejaVu
------------------------------------------------------------------------
DejaVu's Profile: http://www.excelforum.com/member.php...o&userid=22629
View this thread: http://www.excelforum.com/showthread...hreadid=385313