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

Workbooks(Name & "Archive.xls").Close SaveChanges:=True

--
Regards,
Tom Ogilvy


"ttomlinson" <ttomlinson.1pt4qc_1117393503.1484@excelforum-nospam.com> wrote
in message news:ttomlinson.1pt4qc_1117393503.1484@excelforum-nospam.com...
>
> I have changed the code since I last posted. I am using a concatenated
> filename and it works in the open code which I have printed below.
>
> Path = ThisWorkbook.Path & "\"
> Name = Mid(ThisWorkbook.Name, 1, Len(ThisWorkbook.Name) - 4)
>
> Application.Workbooks.Open (Path & Name & "Archive.xls")
>
> What I need to be able to do is to close the book and thats what I cant
> do.
>
> Thanks
> Trev
>
>
> --
> ttomlinson
> ------------------------------------------------------------------------
> ttomlinson's Profile:
http://www.excelforum.com/member.php...o&userid=23839
> View this thread: http://www.excelforum.com/showthread...hreadid=374909
>