Hi princ_wns

Here is a code which gives the List of All Open Workbook Files in the same instance.

Code:
Sub ListOpenBooks()
'lists each book that's OPEN
    Dim wb As Workbook

    For Each wb In Application.Workbooks
          MsgBox wb.Name
    Next wb
End Sub