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. |
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. |
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. |
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