I'm getting an error on this.

"Run-time error '5174: Sorry, we couldn't find your file. Is it possible it was moved, renamed, or deleted?" Then it lists the first file in the folder.

Debug highlights the "Set d = Documents.Open (file)" line.