Dec 20 2021 10:37 AM
Ihave a set of tables under each other in one sheet and i want to create an index page with a hyperlink for each table. The link will take me to the beginning of each table, is it possible to do it in excel
Dec 20 2021 11:50 AM
Run this macro while the sheet with the tables is the active sheet:
Sub CreateTOC()
Dim wshS As Worksheet
Dim wshT As Worksheet
Dim tbl As ListObject
Dim t As Long
Application.ScreenUpdating = False
Set wshS = ActiveSheet
Set wshT = Worksheets.Add(After:=wshS)
For Each tbl In wshS.ListObjects
t = t + 1
wshT.Hyperlinks.Add Anchor:=wshT.Range("A" & t), Address:="", _
SubAddress:="'" & wshS.Name & "'!" & tbl.Range(1, 1).Address, _
TextToDisplay:=tbl.Name
Next tbl
Application.ScreenUpdating = True
End Sub