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

How to prevent a 'copy' from opening
 

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" wrote in message
...
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