Dim bk as workbook
On Error Resume Next
set bk = WorkBooks("ws2.xls")
On Error goto 0
if not bk is nothing then
msgbox "ws2.xls is open"
else
set bk = workbooks.open( Filename:="c:\ws2.xls")
End If

Regards,
Tom Ogilvy

"Joe" wrote in message
...
Hi Everybody:

I built this VBA script for Excel and I'm running into a
bit of a problem. I have 2 seperate workbooks(We'll call
them ws1 and ws2). What I want to do is determine if ws2
is open. Is there a way to determine if it's open or not?