VBA Macro to load .txt data in various spreadsheets at the end of each file (accumulating)

Hi trizzo
I'm attaching your files with the Button and the Code embedded. As previously indicated, all of these files should be located (by themselves) in one Folder. You'll notice that Main is now Mail.xlsm...Main.xlsx is gone. I wrote the code in Main.xlsx then saved it as Main.xlsm. Main.xlsx was then deleted. Play with these files...the code has been tested and does work for me with these files.

Regarding this

Where in the code the file1.txt is being specified?

The code looks at every .xlsx file in the folder. If the found file name is not the file that's running the code (in this case Main but it can be anything), the .xlsx file is opened. So, in our case, it finds File1.xlsx and opens it. The code then looks for a .txt file with the same name as the .xlsx file it just opened (File1.txt).

sp = Split(MyFile, ".")(0) & ".txt"

If it doesn't find it you get the error message you received. Error checking can and should be built into the code to pass the File if this situation exists.

Regarding this

Let`s say I have a file named XAD5E.txt

If you ALSO have a file called XAD5E.xlsx the code will find and open XAD5E.xlsx and XAD5E.txt. If you DON'T have a file called XAD5E.xlsx nothing happens.

Let me know how it goes.