16/03/2010, 09:12
|
| | | Fecha de Ingreso: julio-2006 Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 18 años, 5 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 |