Macro para copiar todas las hojas (20 o más) de un libro a otro libro nuevo

Hola,
ojala me puedas ayudar, necesito copiar todas las hojas de un libro a otro, con sus nombres de hoja. Tengo una macro que me cuenta las hojas y me las copia, pero después de copiar me arroja error de ejecución.
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
   \'Starts with second sheet - replace with index number of starting sheet.
   BegSht = x
   \'Moves two sheets - replace with number of sheets to move.
    NumSht = x
   BkName = ActiveWorkbook.Name
    For x = 1 To NumSht
      \'Moves second sheet in source to front of designated workbook.
        Workbooks(BkName).Sheets(BegSht).Move _
         Before:=Workbooks(\"Generador de Informe.xlsm\").Sheets(1)
    Next
 End Sub
La idea que es se abra el archivo y se cierre una vez finalizado el proceso, también que se copie después de la hoja principal donde esta el botón de la macro.
Adicional, si sabes como poder borrar todas las hojas de un libro, pero sin eliminar la principal.