Names of Sheets in workbook

[saybut]

Hi,

I was wondering if anyone could help. I have a spreadsheet with 4
worksheets in it.

I need to create a Table of Contents on the first sheet listing th
other 39 sheets in the document.

Does anyone know a quick way to generate a list of the sheets in th
workbook?

Any help would be appreciated.

Thanks,

Mark Piitchford

 

[Frank Kabel]

Hi
have a look at
http://www.mvps.org/dmcritchie/excel/buildtoc.htm

 

[Arvi Laanemets]

Hi

Look in same NG here answers to question from Moises Munoz 'Getting the
names of the tab sheets' at 13.02.2004 9:23.

 

[Jim Cone]

Mark,

My Excel add-in "Excel Extras" adds a "Table of Contents" item to
the Insert Menu that when clicked, automatically adds a new sheet
to the workbook with a listing of all sheets and the number of
printable pages for each sheet.
Also, each sheet name is hyperlinked to the actual sheet.

The add-in has additional features including:
Sheet sorting
Print area determination
Header and Footer info - add or clear
Font options

It is available - free - upon direct request.
Comes with Word.doc install/use instructions.
(remove xxx from my email address_

Regards,
Jim Cone
San Francisco, CA
(e-mail address removed)

 

[Peter Atherton]

Mark

Try this.

Copy the code into a VB Module, make sure that the active
sheet is blank and run the code.

Sub Test()
Dim wks As Worksheets
s = Worksheets.Count
Dim i As Integer
For i = 1 To s
Cells(i, 1) = Worksheets(i).Name
Next i
End Sub

Regards
peter