Code that will put the file name in the last column for multiple workbooks

Big props to whoever knows how to do this. I have are around 100 different workbooks that I want to add a column at the end to that adds the file name to each row. Instead of going into each workbook and manually adding the file name to the last column does anyone know a code that can do this automatically? I've spent way too much time trying to figure this out.

Thank you!!!

Re: "add a column at the end to that adds the file name to each row."
You can't add a Column at the end. Excel 2007 and up have 16,384 Columns. That's it. Excel 2003 has 256 Columns
You want to add the file name to, in Excel 2007 and up, over a million rows? (65,000+ in 2003)
Are all the files in the same folder?
Are there any other file types, .doc, .jpg, .pdf etc, in that same folder?
Will the workbook with the code in it be saved in the same Folder?

I meant the last column of the data set. So if its from A-N in column O. Files are in the same folder yes. They are all workbooks. Yes they will be saved in the same folder.

Thanks!

Wow! thank you.

So do I just put the folder the workbooks are located in where you wrote sheet1?

You don't have to change anything.
Just make sure that all the workbooks, or files, are in the same folder, including the workbook, or file, with the code in it and that that has been saved in that folder.
It will put the workbook name in Sheet1 of every workbook in that folder.
Do a trial run first with some temporary workbooks if you don't quite follow the logic.
Let us know if it all works to your liking.

I have all the workbooks in one folder and I put a workbook called Book1 into that folder. But when I run the code in book1 I get a subscript out of range error. I tried running the code from one of the real workbooks too and it didn't work either. Any clue why?

Got it to work! only problem is it writes the file name on the first row. Is there a way I can get it on every row of that column?

Re: Code that will put the file name in the last column for multiple workbooks