Sub SheetHyperlinks() Dim i As Integer Sheets("Index").Activate With ActiveSheet .Range("A1").Value = "Index" For i = 2 To Sheets.Count .Hyperlinks.Add Anchor:=.Range("A" & i), Address:="", _ SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name Next i End With End Sub