This macro will give you a list of sheets.

Private Sub ListSheets()
'list of sheet names starting at A1 on new sheet
Dim rng As Range
Dim i As Integer
Worksheets.Add(After:=Worksheets(Worksheets.Count) ).Name = "List"
Set rng = Range("A1")
For Each Sheet In ActiveWorkbook.Sheets
rng.Offset(i, 0).Value = Sheet.Name
i = i + 1
Next Sheet
End Sub

What else you need is unclear to me.


Gord Dibben MS Excel MVP

On Sat, 1 Dec 2007 10:01:00 -0800, wally
wrote:

I have developed a workbook, used as a route list, containing as many as 50
to 60 worksheets. Each of the worksheets has customer details and delivery
information including time of delivery, which can change from day to day as
customers are added or removed. In order to complete the workbook, an index
of the worksheets is needed. As an example, the first worksheet would
contain a list of the tabs used to complete the route, and provide the total
of the tabs serviced on the route. Any help would be appreciated. Thanks.

Wally