AutoCAD VBA sample programs - SaveAs Drawing - code

Sub SaveAs(ByVal drawingname As String)
 
    ThisDrawing.SaveAs drawingname + "-vba.dwg"
    
End Sub