is workbook open

[big G]

Is there a simple way in VBA to determine if a workbook of a specific name
is open?

 

[Rob Bovey]

Is there a simple way in VBA to determine if a workbook of a specific name
is open?

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 *

 

[Tom Ogilvy]

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