Greetings Cliff,

I did not get past this:
[vba]
BookName = "I:\S3 DATA\MEPSFLR\FLR CDR\BDE_Reports\" & FileName & ""
BookCount = Workbooks.Count
For i = 1 To BookCount
If BookName = Workbooks(i).Name Then
[/vba]

I may be mis-reading, but it would appear to me that 'Bookname' will end up being a string respresenting the fullname of a workbook, but with a quotation mark tacked in at the end.

The next issue would seem to be that that comparing the fullname (Path + wb name) with 'Workbooks(i).Name' would fail, as .Name only returns the filename (without the path).

Mark