How do I email my SINGLE worksheet and not entire workbook?

[Dieterl]

Hello,

I'm trying to use an activex button to send an email with my attached worksheet. The below works great but it attaches the entire workbook and not the worksheet tab I'm on. Just a note, I don't know anything about coding. I just copied the below from someone. Thanks!

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogSendMail).Show
End Sub

[Norie]

You would need to copy the sheet you want to attach to a new workbook and then attach that.

Try this, change Sheet1 to the name of the sheet you want to copy/send.

Please Login or Register  to view this content.

[Dieterl]

Norie, that worked great! Thank you. One question though - When it attaches to the email the name changes to "Book1". How do I get it to stay the name of the tab or change it myself? Thanks again.