Hola,

Espero que me puedan ayudar, tengo un problema con una macro, necesito extraer la informacion de un libro cerrado a un libro abrierto, esta copia debe ser con sus nombres de hojas, la macro, me copia los datos pero al final de la ejecucion me arroja error, esto es solo una parte de todo el problema pero es la que me urge mas, agradeceria su ayuda.

Macro.

Sub Macro5()

   Dim x As Integer

   Dim BkName As String

   Dim NumSht As Integer

   Dim BegSht As Integer

   Workbooks.Open ("C:\Informe Proyectos\Resumen de proyectos.xlsx")

  Windows("Resumen de proyectos.xlsx").Activate

   For x = 1 To ActiveWorkbook.Sheets.Count

   Next

  BegSht = x

   NumSht = x

   BkName = ActiveWorkbook.Name

    For x = 1 To NumSht

        Workbooks(BkName).Sheets(BegSht).Move  Before:=Workbooks("Generador de Informe.xlsm").Sheets(1)

    Next

 End Sub