|    
			
				16/04/2007, 12:43
			
			
			  | 
  |   |  |  |  |  Fecha de Ingreso: marzo-2007 Ubicación: Bs.As. 
						Mensajes: 1.103
					 Antigüedad: 18 años, 7 meses Puntos: 88 |  | 
  |   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
     |