Need a Macro to copy a VBA Module to a New Workbook...

[ddubnansky]

Just like the subject says... I need a macro that will take one module (not all) in the active workbook and copy it into a new workbook. Any suggestions? Thanks.

 

[Greg Truby]

Yes, it's quite possible. You might try looking through the link to Chip's site referenced in this thread and then post back if you have further questions.

 

[Tommy Bak]

this macro can do just that.
It transfer a module from the workbook from where the resides to a new workbook which it also makes

Sub TransferModule()
Const MODULE_NAME    As String = "Misc"         ' Name of the module to transfer
Const TEMPFILE       As String = "c:\Modul.bas" ' temp textfile
Dim WBK As Workbook
   
   On Error Resume Next
   '**Create new workbook
   Set WBK = Workbooks.Add
   
   '** export the module to a textfile
   ThisWorkbook.VBProject.VBComponents(MODULE_NAME).Export TEMPFILE
  
   'import the module to the new workbook
   WBK.VBProject.VBComponents.Import TEMPFILE
  
   'kill the textfile
   Kill TEMPFILE
End Sub

regards
Tommy Bak