I have looked at a number of methods to pull the Tab Names to an index sheet (skip over the code)
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"...