ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   How can I make a content (sumary) of a workbook (https://www.excelbanter.com/excel-discussion-misc-queries/88599-how-can-i-make-content-sumary-workbook.html)

Adrian Ficker

How can I make a content (sumary) of a workbook
 
I want that in firs worksheet from a workbook to add links to all the sheets
that are in that workbook. Something like indexing of the workbook. Like a
site map.
So when i want to see the a specific sheet to navigate jusc clicking the
link that is having.


Bob Phillips

How can I make a content (sumary) of a workbook
 
See http://www.mvps.org/dmcritchie/excel/buildtoc.htm
--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Adrian Ficker" <Adrian wrote in message
...
I want that in firs worksheet from a workbook to add links to all the

sheets
that are in that workbook. Something like indexing of the workbook. Like a
site map.
So when i want to see the a specific sheet to navigate jusc clicking the
link that is having.




Paul B

How can I make a content (sumary) of a workbook
 
Adrian, have a look here for one way to do it,
http://www.mvps.org/dmcritchie/excel/buildtoc.htm

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Adrian Ficker" <Adrian wrote in message
...
I want that in firs worksheet from a workbook to add links to all the

sheets
that are in that workbook. Something like indexing of the workbook. Like a
site map.
So when i want to see the a specific sheet to navigate jusc clicking the
link that is having.




bgeier

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

Try


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

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


--
bgeier
------------------------------------------------------------------------
bgeier's Profile: http://www.excelforum.com/member.php...o&userid=12822
View this thread: http://www.excelforum.com/showthread...hreadid=542066



All times are GMT +1. The time now is 02:53 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com