Alternative to first post.

Private Sub ListSheets()
'list of sheet names starting at A1
Dim Rng As Range
Dim i As Integer
Set Rng = Range("A1")
For Each Sheet In ActiveWorkbook.Sheets
Rng.Offset(i, 0).Value = Sheet.Name
i = i + 1
Next Sheet
End Sub

Just a list of sheets on a new sheet.




On Tue, 15 Aug 2006 13:49:01 -0700, aellorac
wrote:

I have a workbook which has quite a few worksheets. I'd like to have a table
of contents which lists each worksheet but does not necessarily have to link
to said worksheet. How might I accomplish this task?

Thanks in advance for your assistance!

Gord Dibben MS Excel MVP