You can use the following custom function to determine if the workbook is open.
================================================== ====
Function WBOpen(WorkBookName As String) As Boolean

On Error GoTo WorkBookNotOpen

If Len(Application.Workbooks(WorkBookName).Name) 0 Then
WBOpen = True
Exit Function
End If

WorkBookNotOpen:

End Function
================================================== ====
--
Kevin Backmann


"Jeff" wrote:

How can I check in a macro subroutine if the status of another file is open
or close. I would like to open another file only when it is not open.
Otherwise, Workbooks.Open Filename:="myfile.xls" simply returns an error
when the file is already open while the macro is running. Thanks a lot in
advance.