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]