Hello I am trying to create a macro that saves the current active sheet as a eDrawing with the same name as the drawing and in the same directory. But I am getting a compile error and from what I could find online this could be due to a missing library. Nothing seemed to be missing and i even went trough and manually re-attached all of the .tlb files but no luck. 
Any thoughts?

Dim swApp As Object
Sub