Ver Mensaje Individual
  #2 (permalink)  
Antiguo 16/04/2007, 12:43
Avatar de mrocf
mrocf
 
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 1 mes
Puntos: 88
Sonrisa Re: Macro de Excel

Prueba con:
Código:
Sub CopiaHojas()
    Application.ScreenUpdating = False
    MyBook = ActiveWorkbook.Name
    For ii = 1 To Sheets.Count
        Workbooks(MyBook).Sheets(ii).Copy
    Next
    Application.ScreenUpdating = True
End Sub
Saludos

Última edición por mrocf; 16/04/2007 a las 12:56