Bienvenido a la mayor comunidad de usuarios EXCEL
Regístrate gratis ahora para ver contenidos y descargas sin restricciones!Regístrate gratis Ingresar
Hacer Referencia a las Hojas
- Autor del tema Sergy74
- Fecha de inicio
Prueba con:
Código:
Sub eliminar·hojas()
Dim H As Worksheet
Application.DisplayAlerts = False
For Each H In Worksheets
If Left(H.CodeName, 4) = "Hoja" And _
(Val(Right(H.CodeName...muchas gracias por el codigo lo probare y ya te cuento
Macro Antonio
Moderator
- Registrado
- 22 Dic 2009
- Mensajes
- 10.777
Otra vía.
Código:
Private Sub OcultarHojas()
Dim Hoja As Worksheet
For Each Hoja In Sheets
If Not Hoja.Index < 1 And Not Hoja.Index > 6 Then
Hoja.Visible = False
End If
Next
End Submuchas gracias Antoni, probe el otro codigo y me fue de maravilla, probare el tuyo tambien.... muchas gracias
Temas similares
