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