email worksheet

[JOEE1979]

Hello, I'm trying to send a worksheet by email.
I have a macro that I been using it for about a year now.
all of a sudden, it now gives me a message when I want to send the email.
When I click "yes" it opens up an email dialogue for me.
Not sure why this is now happening, what do I need to change so it cancels the popup box?
Thank you

this is the macro I have been using

Sub sendemail_West() 'West stores
Dim objmail As Object
Dim sName As String
Dim fName As String


Sheet12.Copy 'Fit the sheet name
sName = Sheet12.Range("A15").Text + "_parts_Request.xlsx" 'Fit the file name
fName = ThisWorkbook.Path & Application.PathSeparator & sName

ActiveWorkbook.SaveAs fName
ActiveWorkbook.Close False

Set objmail = CreateObject("Outlook.Application").CreateItem(0)
objmail.TO = "" 'Fit the eMail
objmail.Cc = "" 'Fit the eMail
objmail.Subject = Sheet12.Range("A15").Text
objmail.Attachments.Add fName
objmail.Display

End Sub

 

[shknbk2]

It looks like the issue relates to saving the workbook in the code (ActiveWorkbook.SaveAs). The template file (if you are using one) must have some old Excel 4.0 formulas in it that don't allow you to save the file as a non-macro XLSX file. I'm not sure if you would want to start saving the files in XLSM format or if you want to do some internet searching on the issue to try to find/update/eliminate the functions to allow saving.