Creating an Index
It is quite easy with the small macro:
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
Regards,
Ryan--
--
RyGuy
"Bill Smith" wrote:
Is there an automated way to create an Index worksheet for a large workbook?
I inherited a bunch of workbooks with a different product on each worksheet.
The only place the part number is listed is on the tab.
I'm part way thru manually creating a worksheet that lists the tab name and
links to the individual worksheets. It's much too time consuming. Any ideas
will be appreciated.
Thanks!
--
Smitty
Somerset, PA
|