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