Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Auto-Generate an Index Using VBA

Private Sub Worksheet_Activate()      Dim wSheet As Worksheet      Dim l As Long      l = 1      With Me           .Columns(1).ClearContents           .Cells(1, 1) = "INDEX"           .Cells(1, 1).Name = "Index"      End With      For Each wSheet In Worksheets       If wSheet.Name <> Me.Name Then           l = l + 1       With wSheet           .Range("A1").Name = "Start" & wSheet.Index           .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:= "Index", TextToDisplay:="Back to Index"       End With       Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="",SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name       End If       Next wSheet End Sub