Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating 1 Single Module For Several Sheets.
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Creating UDF by Class Module (Leo)? | Excel Discussion (Misc queries) | |||
Copy vb module in all excel sheets | Excel Discussion (Misc queries) | |||
Creating a Hyperlink from a Single Word | Links and Linking in Excel | |||
Help creating single cell Pop-up | Excel Worksheet Functions | |||
Macro, Module, function, sub and This workbook and sheets ? | Excel Programming |