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?