Using VBA or a macro to get first row

Hello,

I have a number of xlsx files in a folder and want to take the first (header) row from each of the files and place them in a new file.

How can I do this

Thanks