vbXL – copying from multiple w/books

I need to copy line 2 from every spreadsheet in a directory. I have control of the spreadsheet design but no control of its name nor do I know how many spreadsheets there will be in the directory. I have the copying routine down but need the for..next concept