![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
16/03/2010, 09:12
|
![Avatar de abrahamvj](http://static.forosdelweb.com/customavatars/avatar144758_1.gif) | | | Fecha de Ingreso: julio-2006 Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 18 años, 6 meses Puntos: 18 | |
Respuesta: Nombre de pestaña en una celda 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 |