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

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

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/

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

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

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

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


"countryfan_nt " wrote in message ...
I really appreciate your help. Trouble is I am new on VBAs. The Macro
that I listed is Working, It only needs a little modifications
(adjustments). i.e. Please help me in finding where I need to place
the *ActiveSheets* command?

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

Trully grateful for your time.


Nawaf


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