Hi

This will write all sheet names to a sheet named 'Name Sheet', except
'Name Sheet'

Sub NameList()
Dim DestSh As Worksheet
Dim DestCell As Range

Set DestSh = Worksheets("Name Sheet") 'Change to suit
Set DestCell = DestSh.Range("A1")

Range(DestCell, DestCell.End(xlDown)).ClearContents

For Each sh In ThisWorkbook.Sheets
If sh.Name < DestSh.Name Then
DestCell = sh.Name
Set DestCell = DestCell.Offset(1, 0)
End If
Next
End Sub

Regards,
Per

On 18 Mar., 01:10, darsh wrote:
Hi,

Wondering how to create a list of pre-existing tabs in a workbook. I have a
book that has appx 100 tabs and I want to create a list of those tabs on one
sheet.

Is there an easier way then doing this manually? The tab names keep changing
every month and I need to get a quick inventory of what's in the book.

Many Thanks,