Generally, it's a better idea to start a new question in a new thread.
However, one way:

Public Sub ListWorkbooks()
Dim i As Long
With ActiveWorkbook.Sheets
For i = 1 To .Count
ActiveSheet.Cells(i, 1).Value = .Item(i).Name
Next i
End With
End Sub


In article ,
Ken wrote:

Great stuff ... working fine ... :)

Next ... I have a WorkBook with 31 TabSheets

On TabSheet 31 ... Down Col A ... I wish to list the other 30 TabSheetNames
...

These are not my exact parameters & I will need capability to edit code (& I
know nothing about code) ... But bottom line is ... On a separate TabSheet I
would like capability to List down a Col other TabSheets in the Workbook ...

Thanks ... Kha


"Gary''s Student" wrote:

Private Sub Worksheet_Activate()
Range("G13").Value = ActiveSheet.Name
End Sub

Put this in worksheet code. After changing the tab name, cell G13 will
reflect the change the next time the sheet is activated.
--
Gary's Student
gsnu200704


"Ken" wrote:

Excel2003 ... Is it possible to have a cell value linked to a TabSheet
Name?

My TabSheets are peoples names ... & in a cell within the TabSheet I have
the same name ... If I change TabSheet name ... I would like the name
within
the TabSheet cell to change as well ... Can I do this?

Thanks ... Kha