search for value in a row, copy column to another spreadsheet

[menos]

I want to write some vba code that will look up the file name of the active workbook, then search for that filename in the first row of a different workbook, and if it finds it, copy the column its in and paste it to the workbook of that name. The code I have doesn’t work. Can anyone help? Here’s the code using two example spreadsheets:

Please Login or Register  to view this content.

thanks