workbookopen

[Jeff Navarre]

Hello

Is this possible
If Not WorkbookIsOpen = "H:\NYCDB\NYCBG\Sales-and-Use Taxes\District of Columbia.xls" The
Workbooks.Open filename:="H:\NYCDB\NYCBG\Sales-and-Use Taxes\District of Columbia.xls
End I

Thanks
Jef

 

[Township of East Hanover]

Look here for code:

http://www.erlandsendata.no/english/index.php?d=envbawbwbisopen

Rui

 

[Frank Kabel]

Hi
try the following

sub foo()
dim wbk as workbook
on error resume next
set wbk = workbooks("District of Columbia.xls")
on error goto 0
if wbk is nothing then
set wbk = workbooks.open filename:="H:\NYCDB\NYCBG\Sales-and-Use
Taxes\District of Columbia.xls"
end if
msgbox wbk.name
end sub