I'm using the code from the Walkenbach book for sending a sheet from a workbook as an attachment: Sub SendOneSheet()