Public Sub Test()
Dim wbkDest As Workbook
Set wbkDest = Application.Workbooks.Open("C\Book.xls")
ExportModule "Module1", ThisWorkbook, wbkDest
wbkDest.Close True
End Sub
Private Sub ExportModule(moduleName As String, wbkSrc As Workbook, wbkDest As Workbook)
Dim code As String
With wbkSrc.VBProject.VBComponents(moduleName).CodeModule
code = .Lines(1, .CountOfLines)
End With
With wbkDest.VBProject.VBComponents.Add(1)
.Name = moduleName
.CodeModule.DeleteLines 1, .CodeModule.CountOfLines
.CodeModule.AddFromString code
End With
End Sub