FWIW it seems to to what you want for me (assuming I understand )

However, I don't understand the purpose of this. I don't think FSO and the Folder object works like that

      If oFolder = msoOpenFile Then Close