Ocultar todas las hojas menos la activa

Con esta macro ocultas todas las hojas que tienes en tu archivo dejando solo la que que tengas activa en ese momento.

Si eres de los que ocultan los cálculos y no quieres que se vean esta es tu macro.

Solamente dándole al botón.

Código de la macro

Sub OcultarHojas()

Dim Hoja As Worksheet

For Each Hoja In ThisWorkbook.Worksheets

If Hoja.Name <> ActiveSheet.Name Then Hoja.Visible = xlSheetHidden

Next Hoja

MsgBox «Se han ocultado todas las hojas menos la activa»

End Sub

Como copiar y pegar el código

Como insertar una macro en la cinta de opciones personalizada