Quote Originally Posted by binar View Post
Hi p45cal,
I did a test run and I got a "Run-time error76": Path not found error.
I did the same with your file and got the same error, however, did you check you output folder?
The line:
For Each cll In Range("A2:A300").Cells
runs through the cells of the active sheet from cell A2 to cell A300.
Your file has file names in cells A2, A3 and A4. When it gets to cell A5 is when my code errored. Cell A5 is blank.
Reinstate my original line:
xx = FSO.OpenTextFile(myFullPathAndNameSource).ReadAll 'your source file
and change the line
For Each cll In Range("A2:A300").Cells
to:
For Each cll In Range("A1:A4").Cells
Your folder names, source and destination, have to be exactly right with backslash characters in the right places and the source files must exist.