Indice en hoja
Hola.
Tengo un libro con varias hojas. Quiero hacer una lista de esas hojas. Use un macro (que saque de todo expertos):
Sub Macro2()
Dim fill As Long, w As Worksheet, sHoja As String
fill = 5
For Each w In ThisWorkbook.Worksheets
sHoja = w.Name
Cells(fill, 2).FormulaR1C1 = sHoja
ActiveSheet.Hyperlinks.Add Anchor:=Cells(fill, 2), Address:="", _
SubAddress:=sHoja & "!A1", TextToDisplay:=sHoja
fill = fill + 1
Next w
End Sub
Ahora bien, como lista funciona bien, pero necesito que se actualice automáticamente cuando cree hojas nuevas y ademas quiero que 3 hojas no figuren en esa lista. ¿Se puede?
Muchas gracias
Tengo un libro con varias hojas. Quiero hacer una lista de esas hojas. Use un macro (que saque de todo expertos):
Sub Macro2()
Dim fill As Long, w As Worksheet, sHoja As String
fill = 5
For Each w In ThisWorkbook.Worksheets
sHoja = w.Name
Cells(fill, 2).FormulaR1C1 = sHoja
ActiveSheet.Hyperlinks.Add Anchor:=Cells(fill, 2), Address:="", _
SubAddress:=sHoja & "!A1", TextToDisplay:=sHoja
fill = fill + 1
Next w
End Sub
Ahora bien, como lista funciona bien, pero necesito que se actualice automáticamente cuando cree hojas nuevas y ademas quiero que 3 hojas no figuren en esa lista. ¿Se puede?
Muchas gracias
