Sub SaveAndCloseAll()
    progeCAD.Documents.SaveAll
    progeCAD.Documents.CloseAll
End Sub