Question for Joel

[K]

Hi Joel, I tried your code but I am getting an error message. Please
click on the link below for more detail.
http://groups.google.com/group/micr...24370430e6e/2daa98aec48d43cd#2daa98aec48d43cd

 

[Barb Reinhardt]

It looks to me like you didn't include the extension. .xls ...etc. If
that doesn't work, come back.

I think I'd do something like this

Dim myWB as excel.workbook

on error resume next
Set myWB = Workbooks.Open Filename:=Fl & "\" & fname
on error goto 0

if mywb is nothing then
Msgbox("Workbook not opened.")
End
End if