I should have mentioned that both workbooks are open at the time I want to
email.
I discovered that if I just reference the workbook name I can send as many
workbooks as I wish with your code as long as they are all open.
Thanks




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"chrisnsmith" wrote in message ...
I'm using Ron de Bruin's email code to send my active workbook. I'd like to
be able to send a document saved to my desktop along with this code. Can
anyone tell me what I need to add?

Ron's code:

Sub Mail_workbook_1()
'Working in 97-2007
Dim wb As Workbook
Set wb = ActiveWorkbook

If Val(Application.Version) = 12 Then
If wb.FileFormat = 51 And wb.HasVBProject = True Then
MsgBox "There is VBA code in this xlsx file, there will" &
vbNewLine & _
"be no VBA code in the file you send. Save the" &
vbNewLine & _
"file first as xlsm and then try the macro again.",
vbInformation
Exit Sub
End If
End If

On Error Resume Next
wb.SendMail ", _
"This is the Subject line"
On Error GoTo 0
End Sub