I have a multisheet Excel spreadsheet. Each sheet has the same
format, and one of the cells has an email address in it.
I'd like to add a button or function that would email each
sheet to the email address in that cell. Is there an easy
way to do that?

To do them all:

for each sh in ThisWorkbook.Worksheets
sh.activate
ActiveSheet.Copy
ActiveWorkbook.SendMail ActiveSheet.Range("A1").Value,"Current Status"
ActiveWorkbook.Close SaveChanges:=False
Next


for a button on each sheet.

ActiveSheet.Copy
ActiveWorkbook.SendMail ActiveSheet.Range("A1").Value,"Current Status"
ActiveWorkbook.Close SaveChanges:=False


--
Regards,
Tom Ogilvy


"A Jones" wrote in message
y...
I have a multisheet Excel spreadsheet. Each sheet has the same
format, and one of the cells has an email address in it.
I'd like to add a button or function that would email each
sheet to the email address in that cell. Is there an easy
way to do that?

See also

http://www.rondebruin.nl/mail/folder1/mail5.htm

Or

http://www.rondebruin.nl/mail/folder2/mail5.htm

Or in the body
http://www.rondebruin.nl/mail/folder3/mail5.htm



--
Regards Ron de Bruin
http://www.rondebruin.nl


"A Jones" wrote in message y...
I have a multisheet Excel spreadsheet. Each sheet has the same
format, and one of the cells has an email address in it.
I'd like to add a button or function that would email each
sheet to the email address in that cell. Is there an easy
way to do that?