Sub OpenWorkbookAsAttachment() Application.Dialogs(xlDialogSendMail).Show End Sub
Add Workbook to a Mail Attachment excel macro code. Once you run this macro it will open your default mail client and attached active workbook with it as an attachment.