With excel spreadsheets being used everywhere it’s a common scenario that you will have too many sheets in a workbook and it gets difficult to navigate between sheets. This code can help you create a index page with table of contents linking to all sheets in a workbook and every sheet will have a link back to the index sheet.
Steps to use this code: Go to VBA editor and add a new module. Add the below code to the new module. Go back to the excel workbook where you want the table of contents to be created. Now hit Alt+F8 and run the macro “IndexCreator”. Voila! You will have the index page created on the first page with the table of contents linking to each sheet.
Download the file in case you have any difficulty from the Downloads page.
Dim st As Worksheet, i As Integer
On Error GoTo k
ActiveSheet.Name = "Index"
Cells(3, 2).Value = "Content"
Range("b3:c3").MergeCells = True
For i = 1 To Sheets.Count
Cells(i + 3, 3).Value = Sheets(i).Name
Cells(i + 3, 2).Value = i
If ActiveSheet.Name <> "Index" Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 1), Address:="", SubAddress:="Index!A1", TextToDisplay:="Index"
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 3, 3), Address:="", SubAddress:="'" & Cells(i + 3, 3) & "'!A1"
Range("b3").CurrentRegion.Borders.LineStyle = xlContinuous
Range("b3").CurrentRegion.Borders.Weight = xlThin
ActiveWindow.DisplayGridlines = False
MsgBox "Please remove Index sheet and run the program again"
Tags: Advance Excel Training Hyderabad, VBA Macros Hyderabad, Ms Access Training Hyderabad, Corporate Training Hyderabad