is workbook open

  • Thread starter Thread starter big G
  • Start date Start date
big G said:
Is there a simple way in VBA to determine if a workbook of a specific name
is open?
Click to expand...

The following function returns True or False depending on whether the
workbook name passed to it is an open or closed workbook:

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


Sub Demo()
MsgBox "Is MyBook.xls open? " & bIsBookOpen("MyBook.xls")
End Sub

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *
 
Dim wkbk as Workbook
On Error Resume next
set wkbk = workbooks("MyWorbook.xls")
On Error goto 0
if wkbk is nothing then
msgbox "It isn't open"
End if
 
Back
Top