Checking if a workbook is already open

[RunTime91]

On to the next problem...

I'm working with several workbooks moving information back and forth and I would like to know how to check if one of the workbooks I'm working with is already open - I've Googled the heck out of this and - nothing I found works.

Below is the closest idea to what I'm looking for - A simple if it is open then do stuff if it is not open then open it and do stuff
but I get a "Sub or Function not defined" error on the IsWorkBookOpen line

Dim Ret As Boolean
Ret = IsWorkBookOpen("H:\RefAuthAdj\Inventory Control\Inventory\Daily Inventory Current Report\DailyInvReport.xls")
If Ret = False Then
  Workbooks.Open Filename:= _
    "H:\RefAuthAdj\Inventory Control\Inventory\Daily Inventory Current Report\DailyInvReport.xls"
  Else
End If

Thanks for any help on this

 

[Fluff]

How about

Dim Wbk As Workbook
On Error Resume Next
Set Wbk = Workbooks("DailyInvReport.xls")
On Error GoTo 0
If Wbk Is Nothing Then Set Wbk = Workbooks.Open("H:\RefAuthAdj\Inventory Control\Inventory\Daily Inventory Current Report\DailyInvReport.xls")

 

[RunTime91]

Works perfectly and allows for multiple uses of this error trap, which is precisely what I needed

Thanks Fluff!

 

[Fluff]

Glad to help & thanks for the feedback