Emailing one sheet and one sheet only from a 15 Page Workbook 2

[JrClown]

[tt]Hello guys, I have a workbook holding about 15 worksheets and I would like to have one of these worksheets email.

Workbook
sheet1
sheet2
sheet3
Results ----- > I need to only email this sheet.
sheet5
sheet6
etc

[/tt]

"The reward of one duty done is the power to fulfill another"
J R C L W N
​

 

[xlbo]

Unless you've got 2002, I think you're gonna have to copy the data to a new wb with 1 sheet and email that.
I think in 2002 there's an option to send sheets but not in anything earlier than that
HTH
Geoff

 

[JrClown]

[tt]Thanks for your input xlbo
I am actually looking for a VBA method, and I'm sure there's one I just don't know it.

[/tt]

"The reward of one duty done is the power to fulfill another"
J R C L W N
​

 

[xlbo]

Well, I'm sure you can code the VBA to copy the contents of the sheet into a new workbook then use activeworkbook.sendmail

There is no VBA way to email just one sheet either unless you have 2002

Geoff

 

[dsi]

Try recording a macro, copy the Results sheet to a new workbook, and send the workbook. This should give you a start for the code.

 

[JrClown]

HERE'S THE ANSWER FELLAS

[tt]
Sub emailme()
ActiveSheet.Copy
ActiveWorkbook.SendMail "JrClown@Yahoo.com", "Look! it worked"
ActiveWorkbook.Close False
End Sub


Thanks for your input guys
[/tt]

"The reward of one duty done is the power to fulfill another"
J R C L W N
​

 

[CDN]

Been looking for that function for a while now

​