Import vba module

ImportModule.vba

' 動作させる為には
' ファイル => オプション => セキュリティーセンター => セキュリティーセンターの設定
' マクロの設定 => "VBAプロジェクトオブジェクトモデルへのアクセスを信頼する" をチェック

Sub Hoge()
    ImportModule ("Fuga")
    Application.Run "Fuga.Fuga", "aa"
End Sub

Sub ImportModule(modname)
    Dim abspath As String
    abspath = ThisWorkbook.Path & "\" & modname & ".vba"
    On Error GoTo REMOVEERROR
    Set module = ThisWorkbook.VBProject.VBComponents(modname)
    ThisWorkbook.VBProject.VBComponents.Remove module
REMOVEERROR:
    ThisWorkbook.VBProject.VBComponents.IMPORT abspath
End Sub