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

On Thu, 1 Dec 2005 10:41:03 -0800, "tmottur"
wrote:

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".