How do I display list of tab names used in a workbook on a sheet

[Guest]

I have a Workbook with 60 named tabs (ie not just Sheet 1, Sheet 2, ...) and
want to have the names appear on a list on a new tab called "Tab Name".

 

[Guest]

Consider this tiny macro:

Sub Macro1()
Dim w As Worksheet
i = 1
For Each w In Worksheets
Worksheets("Sheet1").Cells(i, 1) = w.Name
i = i + 1
Next
End Sub

It assumes that the worksheet "Sheet1" exists to do the recording.

Have a good day!

 

[Gord Dibben]

Sub ShowNames()
Set wkbkToCount = ActiveWorkbook
iRow = 1
With Sheets.Add
.Name = "Tab Name"
For Each ws In wkbkToCount.Worksheets
.Rows(iRow).Cells(1).Value = ws.Name
iRow = iRow + 1
Next
End With
End Sub


Gord Dibben Excel MVP