Failing to open existing workbook

[CatDaddy]

I made a little function to check if a workbook is open and I stepped through it and the path and everything is correct and it is throwing no errors but the workbook is still not opening:

[VBA]Public Function OWB(wb As String)
Dim pathO As String
Dim ExcelApp As Excel.Application
Set ExcelApp = GetObject(, "Excel.Application")
On Error Resume Next
pathO = ThisWorkbook.path & "\" & wb
Set WB_check = Workbooks(wb)
If Err <> 0 Then
On Error GoTo 0
ExcelApp.Workbooks.Open fileName:=pathO
End If
End Function[/VBA]

[mancubus]

worked for me...

[VBA]
Sub test()

Dim s As String
s = "DataFile.xlsx"

OWB (s)

End Sub
[/VBA]

[CatDaddy]

I am trying to run it from as a worksheet function...is that not going to work?

[mancubus]

afaik, files cannot be opened via worksheet functions...

[CatDaddy]

fck me...theres probably no way around it either huh?

[mancubus]

i dont know.

but, as you may know, you can return "true" or "false" in a cell.

[VBA]
Public Function IsWorkBookOpen(WorkBookName As String)
'http://www.vbaexpress.com/kb/getarticle.php?kb_id=186

Dim WB As Workbook

On Error Resume Next
Set WB = Workbooks(WorkBookName)
On Error Goto 0

IsWorkBookOpen = Not WB Is Nothing

End Function
[/VBA]

[shrivallabha]

Use hyperlinks formula as it will allow you to click on it to open file.

Or

Worksheet_Change event.