Macro para listar todas las hojas de un archivo

En ocasiones tenemos muchas hojas dentro de un archivo y al final nos perdemos entre ellas

Con esta macro podrás listarlas todas en una sola hoja y tener claro culas tienes.

Código de la macro

Sub ListarHojas()
Dim ws As Worksheet
Dim i As Integer

i = 1

For Each ws In ThisWorkbook.Sheets
    Cells(i, 1).Value = ws.Name
    i = i + 1
Next ws

End Sub

Como copiar y pegar el código

Como insertar una macro en la cinta de opciones personalizada