Runtime Error 13 type mismatch

Hello Guys,

i have written a vba code to open excel file saved at network server.
The issue is code opens the file but gives "Runtime Error 13 Type mismatch"

Code :

<code>
Sub test_opening()

Dim filepath As String, filename As String, completename As String
Dim hurray_macros As Workbooks
filepath = "\\201.596.5.98\U089\hurray_macros\"
filename = "hurray_macros.xlsm"
completename = filepath & filename
MsgBox completename

Set hurray_macros = Workbooks.Open(completename)

End Sub

</code>

Error is on last (Set hurray_macros = Workbooks.Open(completename)

Any help would be appreciated.

Thanks in advance.