OCULTAR VARIAS HOJAS xlveryhidden

On 12 ene, 14:00, Pepito wrote:

Hola Foro:
Tengo un archivo de Excel que tiene 7 hojas, nombradas
"Captura","Total","hoja1",Hoja2","Hoja3,"hoja4" y "Hoja5", quiero que
con una macro me Oculte las Hojas de la 1 a la 5 y solo me deje
visible las hojas  "Captura" y "total"

Gracias por tiempo

Hola.

Espero te sirva este código

Sub ocultar()
Dim hoja As Worksheet
For Each hoja In Worksheets
If Mid(hoja.Name, 1, 4) = "Hoja" Then
hoja.Visible = xlSheetHidden
End If
Next hoja
End Sub