vba syntax error

A reference to an open workbook doesn't include the path.

    Const sPath As String = "C:\Test\"
    Const sWkb As String = "mybook.xls"
    
    If WorkbookIsOpen(sWkb) Then
        Workbooks(sWkb).Select
    Else
        Workbooks.Open sPath & sWkb
    End If

...

Function WorkbookIsOpen(sWkb As String) As Boolean
    On Error Resume Next
    WorkbookIsOpen = Not Workbooks(sWkb) Is Nothing
    Err.Clear
End Function

Hi Shg,
Thanks for helping me on this. Where do I ned to put the function?
I inserted in the same workbook as function, it says "Object does not support this porperty or method.
Jaz

Put the stand-alone function in a code module.

The declarations and code fragment above it replace the code you posted in whatever macro it was in.

Post your code.

Buran is correct (thank you), my apologies.

Brain cramp ...