copy worksheet export as file and then email

[rjmdc]

hi
i have code that copies a specific worksheet then files it
how do I add: attach a copy of this new workbook and email it

'Save New WB
        NewWB.SaveAs QBExportFolder & "QB Export " & Format(ReportMonth, "m_d_yyyy") & ".xlsx", 51
        NewWB.Close SaveChanges:=False

 

[John_w]

Remove the '=':

    .Attachments.Add sAttachment

 

[rjmdc]

hi
it didnt fail it created the email but the attachment was NOT attached
there must be some other error

 

[rjmdc]

where is the wbFile identified as the sAttachment?

 

[John_w]

where is the wbFile identified as the sAttachment?

These lines:

        wbFile = NewWB.FullName


        Call QBExportEmailAccountant(CStr(Format(ReportMonth, "mmmm yyyy")), wbFile)


Sub QBExportEmailAccountant(ReportMonth As String, sAttachment As String)


    Call SendMailAccountant(sMail, sSubj, sBody, sAttachment)


Sub SendMailAccountant(sMail, sSubj, sBody, sAttachment)


    .Attachments.Add sAttachment

I would step through the code with F8 and check it.

 

[rjmdc]

thanks so much
it works now. in F8 i found my small error
have a wonderful day