vba_excel .exportar hojas a un nuevo libro

[DIANA_MM]

Al final he encontrado una solucioncilla,que por lo menos hace lo que quería...haciendo macros de excel y solo que no sabía como volver al libro activo inicial.

Private Sub cmbguardar_Click()

milibro = ActiveWorkbook.Name
nuevolibro = InputBox("NOMBRE" & vbCrLf & "INFORMA NOMBRE DEL NUEVO LIBRO", "ERROR")
nombrenuevolibro = (nuevolibro)
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=nombrenuevolibro, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Windows(milibro).Activate

Sheets("RESUMEN").Select
Sheets("RESUMEN").Copy Before:=Workbooks(nombrenuevolibro).Sheets(1)

Windows(milibro).Activate

If CPROD1A.Value = True Then
Sheets("PROD1").Select
Sheets("PROD1").Copy Before:=Workbooks(nombrenuevolibro).Sheets(1)
End If
Windows(milibro).Activate
If CPROD2A.Value = True Then
Sheets("PROD2").Select
Sheets("PROD2").Copy Before:=Workbooks(nombrenuevolibro).Sheets(1)
End If
Windows(milibro).Activate
If CPROD3A.Value = True Then
Sheets("PROD3").Select
Sheets("PROD3").Copy Before:=Workbooks(nombrenuevolibro).Sheets(1)
End If

Windows(milibro).Activate

End Sub