Sub OcultarHojas()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> ActiveSheet.Name Then Ws.Visible = xlSheetHidden
Next Ws
End Sub
Funciona bien, abre en la última hoja activa.
Pero...... los vínculos de esta a las otras (50) no funcionan,
¿ Que le falta al código ?
Salu2
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a tod@s.
Tengo el siguiente código.
Sub Auto_Open()
OcultarHojas
End Sub
Sub OcultarHojas()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> ActiveSheet.Name Then Ws.Visible = xlSheetHidden
Next Ws
End Sub
Funciona bien, abre en la última hoja activa.
Pero...... los vínculos de esta a las otras (50) no funcionan,
¿ Que le falta al código ?
Salu2