insert into e-mail

[gbaker]

I have a code that opens a workbook and then put it into an e-mail to send out to whom ever needs it. I also would like to attached another workbook to that same e-mail and have not been able to make the code work. See code below and let me know what I can do to make this work. Thanks in
advance, GWB

Sub INSERTINTOEMAIL()
'
' INSERTINTOEMAIL Macro
'

'
    ChDir "\\fngn.com\us\Projects\Print Production\Calendars\2013_Excel_Version"
    Workbooks.Open Filename:= _
        "\\fngn.com\us\Projects\Print Production\Calendars\2013_Excel_Version\BNY_VIEWING_CALENDAR_2013.xls"
    Workbooks.Open Filename:= _
        "\\fngn.com\us\Projects\Print Production\Calendars\2013_Excel_Version\LIST VIEW BNY.xls"
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWindow.Close
    ActiveWindow.Close
    Range("B5").Select
End Sub

[Pecoflyer]

Perhaps this link can help. Code is available