find open workbooks

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

in a macro I must check if a workbook is open.
Which is the procedure????
 
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
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Unwanted workbooks on startup 2
COM addin won't connect when workbook opened via another workbookfrom another instance 3
Excel Protection 2
Opening a list of Excel files and run a macro in each 17
Check to see if a Workbook has a Macro 4
Why do charts disappear? 2
VBA Debug Issue 2
How to change a sheet name without opening the workbook 3

Back
Top