Problemer ved copy workbook - medtag makroer

Hej

Jeg har en workbook som jeg gerne vil kopiere. Det går OK, men jeg har problemer med at få medtaget macroer (modul).

Baseret på et eksempel jeg har fundet, har jeg strikket nedenstående sammen.
Kilde: http://www.mrexcel.com/articles/copy-vba-module.php
Note "In Excel 2002 and newer, you need to explicitly allow a macro to add code to a workbook"

  ' Delete any old stray copies of the module1
  On Error Resume Next
    Kill (modulePath)
  On Error GoTo 0
  ' Export Module 1
  ActiveWorkbook.VBProject.VBComponents("module1").Export (modulePath)
   
  ThisWorkbook.Sheets.Copy
  Set copyWB = ActiveWorkbook
  copyWB.Activate
   
  Call GenerateMonth(copyWB)
 
  ' Import Module 1 to this new book
  Application.VBE.ActiveVBProject.VBComponents.Import (modulePath)

 
  On Error Resume Next
    ActiveWorkbook.SaveAs newFolderPath & "\" & newFileName & "." & fileExtentionPart, FileFormat:=52
  On Error GoTo 0
  'ActiveWorkbook.Close
 
  'ActiveWorkbook.SaveAs Filename:=ThisBroker
  ActiveWorkbook.Close
 
  Kill (modulePath)

Mine spørgsmål er:
-    Kan man på en nemmere måde medtage macroer ved kopiering af en workbook?
-    Kan en workaround være at refere til min eksisterende workbook (altså kun have makroerne der)?