VBA loop - when combining multiple WB some close after copy/paste but some stay open?

The code below works perfectly for what I need to do, which is to open and copy (or move) the first sheet of each of the workbooks in a single folder to a master WB that resides outside of that folder, then break the links to the source workbooks. However, every time I run the code, twenty-seven of the workbooks open and close before the next one opens (as they should), but the same five workbooks stay open after the code completes. The first sheet of each of these moves to the master WB like all the others, but they do not close after the move. I can't see any obvious difference between the WBs that stay open and the ones that close. Could someone please point me in the general direction of where the problem lies? I am using Excel 2007 but this needs to also run on 2003. Also, I am a beginner at vba. All of my code comes from forums and I tweak it enough to do what I need, so please excuse if it's "messy".
Thanks!

Here's the code:

Please Login or Register  to view this content.