Mostrar todas las hojas ocultas

Muchas veces tenemos archivos que no son nuestros y no sabemos de donde vine la información.

Esta macro te mostrara todos los archivos ocultos o muy ocultos, asi no perderas detalle.

Solamente dándole al botón.

Código de la macro

Sub MostrarHojas()

Dim Hoja As Worksheet

For Each Hoja In ActiveWorkbook.Worksheets
Hoja.Visible = xlSheetVisible
Next Hoja

End Sub

Como copiar y pegar el código

Como insertar una macro en la cinta de opciones personalizada