with your latest code I get this message:
runtime error '-2147021892(80070bbc)':
Office has detected a problem with this file. To help protect your computer this file cannot be opened.
When I hit debug,.it goes to this line:
Workbooks.Open directory & Application.PathSeparator & file.Name