pvdalen,

Try something like this:


Cells(Row variable2,1).EntireRow.Copy Destination :=
Worksheets("Third").Range("A5")

Hope this gets you in the right direction.

Charle

--
Charle
-----------------------------------------------------------------------
Charles's Profile: http://www.excelforum.com/member.php...nfo&userid=601
View this thread: http://www.excelforum.com/showthread.php?threadid=27261