Nombre de pestaña en una celda

[pacmac]

Buenas a todos. Mi duda es la siguiente, quiero que el nombre de una pestaña se muestre automaticamente en una celda de otra hoja de calculo. Si alguien es tan amable de indicarme como, se lo agradeceria eternamente jeje Un saludo.

[pacmac]

Vale, ya he conseguido sacar el nombre de la hoja de calculo actual a una pestaña mediante la formula

=MED(CELDA("nombrearchivo";A1);ENCONTRAR("]";CELDA("nombrearchivo";A1))+1;31)

El tema es que lo que yo pretendo es sacar el nombre de otra hoja de calculo, en vez de la actual.

[abrahamvj]

Solo algo antes de si quiera intentar contestarte: El nombre de que hoja? La primera? La ultima? La quina? la etc?

Abraham

PD: Sea cual sea tu respuesta de manera obligada hay que usar macros

[pacmac]

Pues quiero hacerlo con varias hojas, ya que en la hoja 1 ira una tabla con el nombre de las demas hojas. Gracias por contestar.

[abrahamvj]

Prueba asio:

Sub XXX ()
Dim Hoja As WorkSheet
For Each Hoja en WorkSheets
Range("A65536").End(xlUp).OffSet(0,1) = Hoja.Name
Next Hoja
End Sub

Abraham

[mrocf]

En lugar de:
Range("A65536").End(xlUp).OffSet(0,1) = Hoja.Name

"sospecho" que sería más apropiado:
Range("A65536").End(xlUp).OffSet(1,0) = Hoja.Name

¿No...?
Saludos, Cacho.

[abrahamvj]

Si, gracias Cacho, como siempre lo hice de memoria (tu ya lo sabes!!! )y obviamente "se me chispoteo". Gracias

Abraham

[3pies]

Y en lugar de:

For Each Hoja en WorkSheets

Debería ser:

For Each Hoja in WorkSheets

Supongo que debe tener la culpa el corrector automático.

[abrahamvj]

Creo que ya estoy viejo

Abraham

[mrocf]

¡Nada de viejo...!

Te has convertido en un mago: ¡La mano más rápida que la vista...!
(ja ja ja)