"norie" wrote in message
...
On Nov 7, 1:06 am, "Clif McIrvin" wrote:
Here's a code snippet that has worked for years under 2003:

strFullName = strPath & subPath & varBookName
Err.Clear
On Error Resume Next
Workbooks.Open FileName:=strFullName, _
UpdateLinks:=0 'do not update
Select Case Err.Number

Now, under 2010 if the file does not exist I get a dialog that
displays
the filename as "not found, etc, etc." When I click on OK, the code
continues executing and does what I expect. Is there a setting change
on 2010 or something that I'm missing?

--
Clif McIrvin

(clare reads his mail with moe, nomail feeds the bit bucket :-)

Cliff

Why not check if the file exists using Dir rather than using On Error?

If Dir(strFullName)<"" Then
Set wbOpen = Workbooks.Open(FileName:=strFullName,
UpdateLinks:=0)
Else
Msgbox "File not found, check filename and path."
End If


---------

Works like a charm! Thanks for the tip.
I like the concept better than what I was doing, too.

--
Clif McIrvin

(clare reads his mail with moe, nomail feeds the bit bucket :-)