Email one sheet from a workbook through outlook

I have attached a version of my file with code that I have adjusted. Everything is working except for the save as portion of it. I keep getting a run time error 1004. The save as of the workbook failed. Also, when I run the macro in the template that I have uploaded it opens up the original file that I had the code in. Any help is appreciated.

AttachmentSize
Template.xlsm44.73 KB

SaveAs problem

Hi,

Pay attention to this part of your code:

With Destwb
        WB.SaveAs TempFilePath & TempFileName & FileExtStr, _
                FileFormat:=FileFormatNum
        ...
End With

Remove that WB :).

 

Best regards.