¿Qué tal tener una lista de hojas cada una con hipervínculos a su respectivo nombre de hoja en el libro de trabajo? Bueno, esto se puede hacer con el siguiente código:
Sub CreateHyperlinkedSheetList ()
Dim ws como hoja de trabajo
Application.ScreenUpdating = Falso
ActiveSheet.Range ("A: A"). Borrar 'borrar lista existente
Para cada ws en ActiveWorkbook.
Con ActiveSheet.Range ("A" y Rows.Count) .End (xlUp)
.Desplazamiento (1) .Valor = ws.Nombre
ActiveSheet.Hyperlinks.Add Anchor: =. Offset (1), Address: = "", SubAddress: = _
"'" & ws.Name & "'! A1", TextToDisplay: = ws.Name
Terminar con
Siguiente ws
Application.ScreenUpdating = True
End Sub
Copie el código anterior en un módulo estándar y puede asignarlo a un botón, para activarlo cuando lo desee.