Hi

You can find code on my site or you can use
My Add-in.
http://www.rondebruin.nl/sendmail.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"countryfan_nt " wrote in message ...
Hi All, Huge fan of the forum,
I have 20 excel sheets, and I wan to have 1 macro script (in a single
module) that will enable any single chosen sheet to be sent to outlook
as an attachment.
I do not want it to be done on sevreal modules. I was told that having
One module with the macro script would serve the purpose.

Here is the macro script that I was able to make, please help me
complete what is missing:

Sub report_send()

Sheets("Sheet1").Select
Cells.Select
Selection.Copy
Sheets("Report").Select
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Range("B1").Select
Application.CutCopyMode = False
Sheets("Sheet1").Select
Range("B2").Select


' the following code is to copy the report sheet after being
copied & attach it to Outlook
Sheets("Report").Select
Sheets("Report").Copy
Columns("A:A").Select
Cells.EntireColumn.AutoFit
Range("A1").Select
Application.Dialogs(xlDialogSendMail).Show _
arg1:="countryfan_nt", _
arg2:="Pipeline Report " & " - As of " & Date

ActiveWorkbook.Close SaveChanges:=False
End Sub


---
Message posted from http://www.ExcelForum.com/