Que tal ter uma lista de planilhas com hiperlinks para seus respectivos nomes de planilhas na pasta de trabalho? Bem, isso pode ser feito com o seguinte código -
Sub CreateHyperlinkedSheetList ()
Dim ws como planilha
Application.ScreenUpdating = False
ActiveSheet.Range ("A: A"). Clear 'limpar lista existente
Para cada ws em ActiveWorkbook.Worksheets
Com ActiveSheet.Range ("A" & Rows.Count) .End (xlUp)
.Offset (1) .Value = ws.Name
ActiveSheet.Hyperlinks.Add Anchor: =. Offset (1), Address: = "", SubAddress: = _
"'" & ws.Name & "'! A1", TextToDisplay: = ws.Name
Terminar com
Próximo ws
Application.ScreenUpdating = True
End Sub
Copie o código acima em um módulo padrão e você pode atribuí-lo a um botão, para acioná-lo quando quiser.