On Jul 29, 6:40*am, ryguy7272 wrote:
On Jul 29, 2:32*am, Javed wrote:

Filename contains extension

BookName = Mid(Fname, InStrRev(Fname, "/") + 1)

In the above line Mid returns from last "/" to end of Fname.

Suggestion:

BookName = Mid(Fname, InStrRev(Fname, "/") + 1,InStr(Fname,".xls")-
InStrRev(Fname, "/") -1)

Pls confirm.

Nope, that gives me the file name, but without the ".xls". *So, i
simply concatenated a ".xls" onto the end. *Now, I have the file name
and the extension, but it STILL WON'T SAVE. *I can't figure it out!!

Error is still on this line:
Set wb = Workbooks(Index:=BookName)

Error mssg is 'subscript out of range'.

Any thoughts?

Got it working!! I had some help from a colleague in my office.
Thanks Mandeep!!