How to read headers from closed file and paste it in new sheet as column using VBA

Hello,
I have 10+ files in a folder. i wants to copy all files headers to new sheet as a column. i am able to do this . But i wants to copy file name and sheet name also i tried but not getting data.
plz see the attchments.
C1.JPG

Below is my code:

Please Login or Register  to view this content.