Excel Automation - Creating an Index sheet in a Workbook
You may have worked on an Excel workbook with just 3 or 4 worksheets in them.
In those workbooks, navigating between worksheets is relatively easy.
But what if you are working with a humongous dataset with 20 or 40 may be 100 worksheets in the Excel workbook?
What do you do then?
Navigating to the middle sheets or sheets at the end can be a very tedious and time-consuming process.
Well, in those cases, it is best to create an Index Sheet upfront with a list of all the sheets in the workbook.
Any user can go to any of the sheet in the workbook by clicking on the corresponding index link of that particular worksheet.
But creating this index sheet manually is also an uphill task.
Yeah it is!
Well, you are in luck.
You don’t need to manually create a link to each of the sheet in the workbook.
Instead you can just create it automatically using a macro.
But you don’t know about programming also.
How do you write a macro code for this automation?
Don’t worry don’t worry
We are still here.
Let us show you how you can create this automated index sheet through an easily available macro code.
Just follow these simple steps below:
Open an Excel workbook that has multiple sheets. Create a new sheet at the front of the workbook and name it “Index Sheet” or anything else you may want. Also, you can format this sheet to put serial numbers if you know the exact number of sheets in the workbook.
Go to the Views tab. Click on the Macros drop down and select View Macros. A macro dialog box opens up.
Let us name the macro in the Macro name option in the macro dialog box. For example, we name the macro name is “CreateIndex”. Once done, Click on Create button.
The macro editor box opens up. There are 2 lines of code already which indicate the macro name is CreateIndex. Any code that we write within these 2 lines will become part of the CreateIndex macro.
Simply Copy and Paste the below code within the 2 lines of code in the Macro Editor.
Dim sh As Worksheet
Dim cell As Range
For Each sh In ActiveWorkbook.Worksheets
If ActiveSheet.Name <> sh.Name Then
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name
Close the macro editor and come to the Index Sheet in the Excel workbook. Place the cursor where you would like the Sheet names to start appearing from.
Go to the View tab and click on Macros dropdown. Select View Macros again. The Macro dialog box opens up with “CreateIndex” Macro selected. Click on Run.
Voila. The individual sheet names appear one below the other on the Index Sheet. Notice there is a hyperlink to each sheet names. So you can simply click on any of the sheet names to go to the respective sheet.
This was neat! Simple yet powerful.
What do you think?
*The Learning Hour is a weekly knowledge sharing initiative of SKILLFIN LEARNING. To subscribe to this initiative, simply click on SIGN UP button above! We will add you to the distribution list.