How do I send single worksheets in a workbook to different recipi.
 

I have a requirement to send a number of worksheets from a single workbook.
Each sheet is sent to a different recipient, all sheets are sent at the same
time and a macro/VBA routine would be ideal for this purpose. I do not want
to send the whole workbook. The work sheets are Pivot Table reports.

How do I send single worksheets in a workbook to different recipi.
 

' put copy of sheet in new workbook
activesheet.copy
' remove links in copy
' also removes the pivot table capability but
' the data is left
activesheet.copy
activesheet.pastespecial xlValues
activeworkbook.Senmail . . .
activeworkbook.close SaveChanges:=False


you would just loop through the appropriate sheets and use code similar to
the above.

--
Regards,
Tom Ogilvy


"FREDTHEUNREADY" wrote in message
...
I have a requirement to send a number of worksheets from a single
workbook.
Each sheet is sent to a different recipient, all sheets are sent at the
same
time and a macro/VBA routine would be ideal for this purpose. I do not
want
to send the whole workbook. The work sheets are Pivot Table reports.