To send a worksheet as the body of a message from an Excel macro, invoke the MailEnvelope object:

Set itm = ActiveSheet.MailEnvelope.Item
With itm
.To = "Address"
.Subject = "Subject"
.Send
End With

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


wrote in message ups.com...
I am trying to email a worksheet by simply pressing a button which
will emulate the Send facilty in Excel (2002). Creating button and
linking it to the code is no problem but I can't find any code to do
it. The worksheet would then be displayed on a blog. Any ideas?
John Wilber