¿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 As Worksheet Application.ScreenUpdating = False ActiveSheet.Range («A: A»). Clear ‘borrar lista existente para cada ws en ActiveWorkbook.Worksheets With ActiveSheet.Range («A» & Rows.Count) .End (xlUp)