Hi Jim
I've made it by this way:
First copy activesheet to new workbook and save it (Temp.xls).
Send activeworkbook as an attachment to somebody.
Delete the temporary file.
Here's the code
Sub Send()
Dim Filename As String
ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "Temp.xls"
Filename = ActiveWorkbook.FullName
Application.DisplayAlerts = True
ActiveWorkbook.SendMail "
[email protected]", "Subject"
ActiveWorkbook.Close False
Kill Filename
End Sub
-vemaju