If you use Outlook, you might give this KB-entry a try: http://www.vbaexpress.com/kb/getarticle.php?kb_id=326

And here's how I modified it to send a mail to 2 persons:

Option Explicit 

Sub EmailWithOutlook()
     'Variable declaration
    Dim oApp As Object, _
    oMail As Object, _
    WB As Workbook, _
    FileName As String
'Turn off screen updating
    Application.ScreenUpdating = False
'Make a copy of the active sheet and save it to
     'a temporary file
    ActiveSheet.Copy
    Set WB = ActiveWorkbook
    FileName = "Temp.xls"
    On Error Resume Next
    Kill "C:\" & FileName
    On Error GoTo 0
    WB.SaveAs FileName:="C:\" & FileName
'Create and show the outlook mail item
    Set oApp = CreateObject("Outlook.Application")
    Set oMail = oApp.CreateItem(0)
    With oMail
         'Uncomment the line below to hard code a recipient
         .To = "me@here.com; me@somewhereelse.com"
         'Uncomment the line below to hard code a subject
         .Subject = "Look at my workbook!"
        .Attachments.Add WB.FullName
        'Send it right away, use .Display to just show the mail
        .send
    End With
'Delete the temporary file
    WB.ChangeFileAccess Mode:=xlReadOnly
    Kill WB.FullName
    WB.Close SaveChanges:=False
     
     'Restore screen updating and release Outlook
    Application.ScreenUpdating = True
    Set oMail = Nothing
    Set oApp = Nothing
End Sub
If you don't use Outlook, you might give http://www.vbaexpress.com/kb/getarticle.php?kb_id=311 a try.

Daniel