How to prevent a 'copy' from opening

I have code written (see below) that makes sure if a workbook (TMR.xls)
is called something else or isnot located in the right folder (TMR folder),
then it will not open. It works fine if the workbook has been located in
another folder. But, if it has the wrong name and is in the TMR folder, a
Visual Basic Error message appears saying it can't locate the workbook, AND
THEN OPENS IT !!!! The visual basic error is preventing the rest of the code,
which would close the workbook.
any suggestions how to get around this? Your help will be appreciated.

code=

If ActiveWorkbook.FullName = "C:\TMR\TMR.xls" Then
Sheets("MENU").Select
Else
Sheets("End").Select
Application.ActiveWorkbook.Save
Application.Quit


--
phil in da uk

Phil,
Try
On Error Resumn Next
If ActiveWorkbook.FullName = "C:\TMR\TMR.xls" Then
Sheets("MENU").Select
end if
If err = 1006 then
Application.ActiveWorkbook.Save
Application.Quit
end if

"phil" <[email protected]> wrote in message
news:[email protected]...
>I have code written (see below) that makes sure if a workbook (TMR.xls)
> is called something else or isnot located in the right folder (TMR
> folder),
> then it will not open. It works fine if the workbook has been located in
> another folder. But, if it has the wrong name and is in the TMR folder, a
> Visual Basic Error message appears saying it can't locate the workbook,
> AND
> THEN OPENS IT !!!! The visual basic error is preventing the rest of the
> code,
> which would close the workbook.
> any suggestions how to get around this? Your help will be appreciated.
>
> code=
>
> If ActiveWorkbook.FullName = "C:\TMR\TMR.xls" Then
> Sheets("MENU").Select
> Else
> Sheets("End").Select
> Application.ActiveWorkbook.Save
> Application.Quit
>
>
> --
> phil in da uk