Re: How can I make a content (sumary) of a workbook

Giganews Newsgroups
Subject: Re: How can I make a content (sumary) of a workbook
Posted by:  bgeier (bgeier.27uiqn_1147691401.675@excelforum-nospam.com)
Date: Mon, 15 May 2006

Try

Sub CreateIndex()
Dim intPlaceRow As Integer
Dim intSheetCounter As Integer

intPlaceRow = 1
For intSheetCounter = 1 To Worksheets.Count
ThisWorkbook.Worksheets("Sheet4").Cells(intPlaceRow, 1) =
Worksheets(intSheetCounter).Name
Cells(intPlaceRow, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:=ThisWorkbook.Worksheets("Sheet4").Cells(intPlaceRow,
1).Value & "!A1",
TextToDisplay:=ThisWorkbook.Worksheets("Sheet4").Cells(intPlaceRow,
1).Value
intPlaceRow = intPlaceRow + 1
Next
End Sub

--
bgeier
------------------------------------------------------------------------
bgeier's Profile:http://www.excelforum.com/member.php?action=getinfo&userid=12822
View this thread:http://www.excelforum.com/showthread.php?threadid=542066

Replies

None

In response to

How can I make a content (sumary) of a workbook posted by Adrian Ficker on Mon, 15 May 2006