Creating 1 Single Module For Several Sheets.

[countryfan_nt]

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

Here is the macro script that I was able to make, please help m
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 bein
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 Su

 

[Ron de Bruin]

Hi

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

 

[countryfan_nt]

I really appreciate your help. Trouble is I am new on VBAs. The Macr
that I listed is Working, It only needs a little modification
(adjustments). i.e. Please help me in finding where I need to plac
the *ActiveSheets* command?

And please tell me if we do that would it work?

Trully grateful for your time.


Nawa

 

[Ron de Bruin]

You must use my code to create a new workbook with the activesheet

This send the ActiveSheet
http://www.rondebruin.nl/mail/folder1/mail2.htm

Or this one with the Outlook Object model
http://www.rondebruin.nl/mail/folder2/mail2.htm

See the tips if you want to change the examples