Function bIsWorkbookOpen(wkbName As String) As Boolean
Dim myWorkbook As Workbook
On Error Resume Next
Set myWorkbook = Workbooks(wkbName)
If Not myWorkbook Is Nothing Then
bIsWorkbookOpen = True
End If
End Function