04/06/2007, 10:37
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 18 años, 6 meses Puntos: 18 | |
| Re: macro guardar hoja en un archivo nuevo
un ejemplo, ya tu adaptalo a lo que necesitas.
sub Ejemplo ()
Application.screenupdating = False
libro=activeworkbook.name
For contando = 1 to sheets.count
workbooks(libro).sheets(contando).copy
next
Application.screenupdating = true
End sub
Ese codigo es de uno de mis amigos de LWP
Abraham |