Batch export/import of modules

Option Explicit
Sub ExportMods()
    Dim i As Integer
    With ActiveWorkbook.VBProject.VBComponents
        For i = 1 To .Count
            Range("A1").Offset(i - 1, 0).Value = .Item(i).Type
            Range("A1").Offset(i - 1, 1).Value = .Item(i).Name
            .Item(i).Export "C:\Temp\" & .Item(i).Name & ".bas"
        Next i
    End With
End Sub
Sub ImportMods()
Dim x
    With ActiveWorkbook.VBProject.VBComponents
        For i = 0 To WorksheetFunction.CountA(Range("A:A")) - 1
            .import "C:\Temp\" & Range("B1").Offset(i, 0).Text & ".bas"
        Next i
    End With
End Sub