EBDN - Community - Question & Answers

  Thursday, 06 April 2017
  1 Replies
  1.6K Visits
0
Votes
Undo
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