• 1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
     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
    Prev:
    Waste Not, Want Not
    Next:
    Calculates the CRC for a Given String