PJ,

The following code will create an Outlook MailItem with the current workbook
as the attachment

Set myOlApp = CreateObject("Outlook.Application")
'Dim myOlApp As New Outlook.Application
Set myitem = myOlApp.CreateItem(olMailItem)
myitem.Display
myitem.Recipients.Add Sheet1.Range("a2").Value
myitem.Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name

http://HelpExcel.com

"-PJ" wrote:

How do I create a link within a workbook to send that workbook to an
indicated email address? Thanks.