Crear una lista de hojas con hipervínculos

¿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.