find open workbooks
 

in a macro I must check if a workbook is open.
Which is the procedure????

find open workbooks
 

Hi Costas

Try this

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

Sub File_Open_test()
If bIsBookOpen("test.xls") Then
MsgBox "the File is open!"
Else
MsgBox "the File is not open!"
End If
End Sub


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


"Costas" wrote in message ...
in a macro I must check if a workbook is open.
Which is the procedure????