Check If Workbook Is Open By Name - VBA

05 Mar 2013 This code from StackOverflow helped me find whether a workbook was open with its name. Here's the link to the thread: Link

Function BookOpen(strBookName As String) As Boolean

    Dim oBk As Workbook

    On Error Resume Next

    Set oBk = Workbooks(strBookName)

    On Error GoTo 0

    If oBk Is Nothing Then

        BookOpen = False

    Else

        BookOpen = True

    End If

End Function

Sub testbook()

    Dim strBookName As String

    strBookName = "myWork.xls"

    If BookOpen(strBookName) Then

        MsgBox strBookName & " is open", vbOKOnly + vbInformation

    Else

        MsgBox strBookName & " is NOT open", vbOKOnly + vbExclamation

    End If

End Sub