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