Listing tab names in one workbook in another workbook

I'm trying to find some non vba approach to grabbing the tab names in workbook A and assigning them to a group of cells in workbook B
I have no clue...

A backup plan would be to go with vba

Is Workbook A always open when Workbook B is being used ?

If so would XLM be permitted ?
(old Macros but run via Names - pre XL2007 would not generate macro warning etc...)

I guess I should outline my thinking... you could use a Name in Workbook A to store the sheet names:

Name: _Sheets
RefersTo: =GET.WORKBOOK(1)

You could then (to avoid issues re: closed file) add a sheet to Workbook A to list the sheet names - eg create a sheet called "sheetlist" and then

A1:
=INDEX(_Sheets,ROWS(A$1:A1))
copied down as far as necessary

You can then link to these cells from Workbook B as normal
(handling #REF! errors etc and trimming the references to remove the file name via formulae in Workbook B)

Thank you DonkeyOte and Sweep...

Both Workbooks are always open. Since no program is always the best program, I am going to go with DonkeyOte's approach.

I will write back with my results.. still working on it.

My two simple workbook examples are attached. Still having some trouble following through.

I'm not really sure from looking at the Names you've created in A what you want to do exactly.

GET.WORKBOOK(1) will return a horizontal array of the sheet names so you can use INDEX etc to retrieve the various items - per earlier post:

Name: _Sheets
RefersTo: =GET.WORKBOOK(1)

Then in terms of the listing returned to a range (for closed target purposes)

Sheets!A1
=INDEX(_Sheets,ROWS(A$1:A1))
copied down

If you would prefer to tweak the sheet names in place I would suggest an adjacent cell for simplicity sake:

Sheets!B1
=IF(ISTEXT(A1),REPLACE(A1,1,FIND("]",A1),""),"")
copied down
(you could use IFERROR if to be used excl. XL2007+)

In workbookB Link to B1 etc in WorkbookA!Sheets

If you decide to go for the backup plan:

Sub a()
Dim ws As Worksheet, iCount As Integer
iCount = 1
For Each ws In Workbooks("Bookname_Name.xls").Worksheets
Cells(iCount, 1).Value = ws.Name
iCount = iCount + 1
Next
End Sub