Foro Excel

Que tal, la idea es tener varios Libros abiertos y enviar todos a uno solo, las hojas (1 o varias) de dichos archivos, bueno, supongo que el código lo pegan en el clásico Personal y bueno, si lo ponen en versión 11.0 es xlsx = xls y xlsm = xls, que creo que esto esta de sobra.

Código: Seleccionar todo

Sub Unifika()
 Dim Shact$, a%
 Dim Ws As Worksheet
   Do
     Windows(1).ActivateNext
      If ActiveWorkbook.Name = "Libro1.xlsx" Or ActiveWorkbook.Name = "PERSONAL.xlsm"  Then
        Windows(1).ActivateNext
      Else
        Sheets(ActiveSheet.Name).Move Before:=Workbooks("Libro1").Sheets(1)
      End If
   Loop Until Workbooks.Count = 2
End Sub

Okas