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.

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.

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.

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