There are a few ways

But I like to use a function like this

Sub test()
If bIsBookOpen("test.xls") Then
MsgBox "Open"
Else
MsgBox "Not Open"
End If
End Sub


Function bIsBookOpen(ByRef szBookName As String) As Boolean
' Rob Bovey
On Error Resume Next
bIsBookOpen = Not (Application.Workbooks(szBookName) Is Nothing)
End Function



--
Regards Ron de Bruin
http://www.rondebruin.nl



"ArthurJ" wrote in message ...
How can I test to see if a particular workbook is open?

Thanks,
Art