Private Sub MyCustom_Macro()
Dim oSourceObject As ObjectItem
Set oSourceObject = Application.Selection(1) '->>Object Kind : aucObjDrawings and Object Name = Documents
Call Application.Utils.RunMacro("AdvancedCADImport.CADImport.Run", oSourceObject)

End Sub
I am getting Run Time Error # -2147194545.....Error with the execution of a macro or wizard
I have VBAProject Name which is "AdvancedCADImport
I have Module Name which is CADImport
I have Macro Name which is Run