Sub Test() Dim so As New StructSaveAsOptions so.Overwrite = False ActiveDocument.SaveAs "C:\Temp\File.cdr", soEnd Sub