This copies the entire row when accounts matched from the "input" list in
Sheet1 to the "output" list in Sheet2.

List1 accounts (account number in column A)
Row A B,C ..........
1 123 ....+ other data (Columns)
2 246.... + other data (Columns)
3 397... + other data (Columns)

List2 Accounts
A
123
397
518

Accounts 123 and 397 match so rows 1 and 3 from the List1 data are copied to
your list3 which I assumed to be in aother sheet. So Sheet2 will contain:

List3

123 ........ row 1
397 ........ row 2

Hope this makes sense (as I don't know exactly how your data (lists) are
organised).



"Ange solorza" wrote:

Thank you for your help.

I am getting at this stage:

wsin.Range("A" & cell.Row).EntireRow.Copy Destination:=wsout.Range("A" &
rw1)

I don't understand.



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!