Copying a sheet to new work sheet

[Andy Kwok]

Hi,

I have a workbook with macros copying data from one sheet into
another.
This works fine. However, I want to e-mail the sheet that is created
but not the entire workbook as its 5 megs.

I have tried to copy/move the sheet into a new workbook but it also
copies
the macros. When I remove the module the file still remains at 5 megs.
I would appreciate any help.

Thanks

Andy

 

[Don Guillett]

See my post in "breakup spreadsheets"

 

[Tom Ogilvy]

set sh = activeworksheet
' add a single sheet workbook
workbooks.Add xlWBATWorksheet
sh.cells.Copy ActiveSheet.Cells(1,1)
activeWorkbook.Sendmail recipient:="(e-mail address removed)", _
Subject:=sh.name
activeworkbook.close SaveChanges:=false