Macro: Criar Indice de Planilhas no Excel

Segue uma macro simples para aqueles que tem planilhas enormes e precisam criar índices com links.

Passos para Criação da Macro:
ALT+F11
Copie o Código abaixo
Cole na área de trabalho do VBA
Feche
Pressione ALT+F8

Abaixo o código VBA
=======================

Sub Cria_Indice()

Dim Plan_TT, Plan_Atual As Integer

Plan_TT = Sheets.Count
Plan_Atual = 1


Do While Plan_Atual <= Plan_TT


Cells(Plan_Atual, 1).Activate
ActiveCell.Value = Sheets(Plan_Atual).Name

Link_Ativo = Sheets(Plan_Atual).Name & "!A1"
Nome_Link_Ativo = Sheets(Plan_Atual).Name


ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Link_Ativo, TextToDisplay:=Nome_Link_Ativo

Plan_Atual = Plan_Atual + 1


Loop




End Sub