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

--
Regards,
Tom Ogilvy

"Andy Kwok" wrote in message
om...
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