Get Name List of All Open Workbook Files

[Admin]

Hi

This is not the answer to your thread title, but give this a try

    Dim wbkOpened       As Workbook
    
    On Error Resume Next
    Set wbkOpened = Workbooks("YourWorkbookName.xls")
    On Error GoTo 0
    
    If wbkOpened Is Nothing Then
        Set wbkOpened = Workbooks.Open("WorkbookFullName")
    End If