ExecutePlan

 ExecutePlan

Sub ExecutePlan()
 
    Set mxmodule = Application.COMAddIns.Item("iMATRIX.ExcelModule").Object
    mxmodule.xapi.ExecutePlan ThisWorkbook, "Plan1;Plan2"
 
    If mxmodule.xapi.LastErrorCode <> 0 Then
        mxmodule.xapi.MessageBox mxmodule.xapi.LastErrorMessage, vbInformation, "i-MATRIX"
    Else
        mxmodule.xapi.MessageBox "Complete." & vbCrLf & "Info" & mxmodule.xapi.ResponseData, vbInformation, "i-MATRIX"
    End If
 
End Sub