Thanks analsolipuram,

I have tried using the full name of the workbook and it does work a
you have said in your example.

I am trying to specify the path by specifying the same path as th
current workbook is that of the other open workbook to close too.
Which it will be in the way I have my workbook set up.

I have tried the code below

Path = ThisWorkbook.Path & "\"
Name = Mid(ThisWorkbook.Name, 1, Len(ThisWorkbook.Name) - 4)

Application.Workbooks(Path & Name & "Archive.xls").Save
Application.Workbooks(Path & Name & "Archive.xls").Close

and it still doesnt work!!

It works to open the workbook but not to close.

Just so you can compare this is what the code that works I am using t
open the workbook looks like.

Path = ThisWorkbook.Path & "\"
Name = Mid(ThisWorkbook.Name, 1, Len(ThisWorkbook.Name) - 4)

Application.Workbooks.Open (Path & Name & "Archive.xls")

Thanks again I appreciate your input. I have been down every route t
test it as I can It workis in the open code but not the close!

Ro

--
ttomlinso
-----------------------------------------------------------------------
ttomlinson's Profile: http://www.excelforum.com/member.php...fo&userid=2383
View this thread: http://www.excelforum.com/showthread.php?threadid=37490