Excel Tutorials | Workbook Macro Code

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

Sub CloseAllWorkbooks() Dim wbs As Workbook For Each wbs In Workbooks wbs.Close SaveChanges:=True Next wb End Sub Use this macro code to close all open

Sub auto_open() MsgBox _ “Welcome To xlsxtemplates & Thanks for downloading this file.” End Sub Welcome Message in excel macro code.  You can use auto_open

Sub Send_Mail() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject(“Outlook.Application”) Set OutMail = OutApp.CreateItem(0) With OutMail .to = “Sales@FrontLinePaper.com” .Subject =

Count Open Unsaved Workbooks. Sub VisibleWorkbooks() Dim book As Workbook Dim i As Integer For Each book In Workbooks If book.Saved = False Then i

Sub auto_close() MsgBox “Bye Bye! Don’t forget to check other cool stuff on xlsxtemplates.com” End Sub Closing Message Excel macro code:  You can use close_open

Sub CopyWorksheetToNewWorkbook() ThisWorkbook.ActiveSheet.Copy _ Before:=Workbooks.Add.Worksheets(1) End Sub Copy Active Worksheet into a New Workbook Let’s say if you want to copy your active worksheet in

Sub FileBackUp() ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & _ “” & Format(Date, “mm-dd-yy”) & ” ” & _ ThisWorkbook.name End Sub Create a Backup of a Current Workbook