Create Macro to copy worksheet into new workbook, change things& drop into Outlook

Good morning,

I've been scouring the web the last several days to find code that will allow me to copy and existing worksheet into its own workbook, change a few things and then drop it into a pre-addressed e-mail in Outlook. The closest I have found is one that won't allow me to make changes to the worksheet once it is copied to its own workbook.


Sub CopyWorksheettoEmail()

Dim wb As Workbook
Set wb = Workbooks.Add
ThisWorkbook.Sheets("PRM Data").Copy After:=wb.Sheets(1)
'ThisWorkbook.Sheets("config").Copy After:=wb.Sheets(1)

wb.Application.Dialogs(xlDialogSendMail).Show "" & y & "[email protected]"

Set wb = Nothing

End Sub




Thanks,

Steve

.
Actually, you have an excellent view of what needs to be accomplished. Now to locate examples, once pieced together, will accomplish your overall goal.

#1: Copy a sheet from one workbook to a newly created workbook.

Please Login or Register  to view this content.

#2: Edit the newly created sheet.

Please Login or Register  to view this content.

#3: Attach worksheet to email.

Please Login or Register  to view this content.

Mind you, the above is not all inclusive. You will need to modify the code in several respects to accomplish exactly what you need.

Thanks for the constructive feedback. It might take me a bit to digest all of it.