Sub CopyAModule(wkbFrom As String, wkbTo As String, strFromMod As String)
   Dim wkb As Workbook
   Dim strFile As String
   
   Set wkb = Workbooks(wkbFrom)
   
   strFile = wkb.Path & "\\vbCode.bas"
   wkb.VBProject.VBComponents(strFromMod).Export strFile
   
   On Error Resume Next
   Set wkb = Workbooks(wkbTo)
   If Err.Number <> 0 Then
       Workbooks.Open wkbTo
       Set wkb = Workbooks(wkbTo)
   End If
   
   wkb.VBProject.VBComponents.Import strFile
   wkb.Save
   
   Set wkb = Nothing
End Sub