Sub IsWorkbookOpen()
Dim myWorkbook As Workbook
Dim stName As String
stName = "c:\abc.xls"
On Error Resume Next
Set myWorkbook = Workbooks(stName)
If Not myWorkbook Is Nothing Then
MsgBox True
End If
MsgBox False
End Sub