Restart Sub when Finished

I'm copying info from about 2000 Sheets in around 200 Workbooks, and lazy as I am, rather that pressing 2 keys (I'm using ALT+1 to run the macro at the moment) to start the process for each sheet I'd like it to run the Sub then restart.
The code starts in the worksheet(W1) where I copy the info from, copys it, pastes it in the other workbook(W2), closes W1 and opens the next W1 from a list of links in W2.
Then stops.
how can I make the whole process start again automatically?

Here's the code (messy as it is..)

Please Login or Register  to view this content.

Just wrap the entire code into a Do...While True loop. It would never end - but is that really what you want?