Email 1 sheet from a workbook

[NewHere]

I have a workbook with several sheets. I want to email just one sheet of the workbook to someone. How can I do this from Excel 97.

 

[xlhelp]

Unless you have XL2002, how about just deleting the rest of the sheets from the workbook and sending it using the send to option under the file menu.

Just remember not to save it as the original file name.

HTH

Indu

 

[tazman99]

Try this...
Right Click Sheet Tab you want your user to see
Click on 'Move or Copy'
From the 'To Book' dropdown, select 'New Book'
Click OK
...and voila!

 

[tazman99]

...sorry....forgot one part for "Copy"

Put a check mark in for 'Copy' in bottom left corner of the "Move or Copy" window.

 

[acron]

The following code shoild email the active sheet, just include a valid email address and appropriate subject text :

Sub SendActiveSheet()
    ActiveSheet.Move
    ActiveWorkbook.SendMail _
        Recipients:="somebody@somewhere.com", _
        Subject:="attached"
End Sub
[code]
A.C.

 

[NewHere]

Thanks for the responses!
Tazman & Xlhelp. I had hoped to avoid making copies of the sheet!
Acron. I attempted to paste this code to a button but got errors. I did change to a valid email.
runtime error 104 method.sendmail of object_workbook failed

I assumed you could just use c:\my documents\mysheet.xls !sheet1 or some sort of method like that but I guess not.
thanks!

 

[jmuscat]

I tried the macro, what a fantastic find, really helpful for me.

 

[acron]

What is your email client ?, Outlook, Notes ?

A.C.

 

[NewHere]

Afraid we are using Eudora. But can't understand why the macro wont work for me.

 

[NewHere]

Discovered or Eudora is not configured for MAPI so I am SOL.
but thanks for the input.