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!

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!