vba syntax error

HI,
I am trying to insert this code in macro to open a workbook. If already opened, activate it. But for some reason it does not work.

HTML Code: 

Please help me on this.
Thank you
Jaz

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.