SaveAs method example

Private Sub SaveAsExample()

     ' This example saves the drawing as a file called TESTING.DWG.

     Application.ActiveDocument.SaveAs ("testing")

End Sub