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