use this:

function isOpen(nameS as string) as boolean
on error resume next
dim nm as string
nm=""
nm=workbooks(nameS).name
isOpen=(nm<"")
end if

you can check like this
if isOpen("Mybook.xls") then
msgbox "MyBook.xls is already open"
else
msgbox "MyBook.xls is closed, you must open it"
end if


Francisco Mariscal



-----Original Message-----
I have a workbook that uses the workbook_open event to
call a procedure to create a menu. When I try to open a
second instance of the workbook I get an error. It looks
like the second workbook is trying to create the menu
again (I am assuming there is a name conflict).

Basically, is there a way to check if a workbook with the
same name is already opened and if it is, do not try to
open a new instance.
.