After Saving a ".xlms" With VBA as ".xlsx" Excel Still Asks About Save Without Macros

[Shiseiji]

I use the code below to save a my .xlsm as a .xlsx file. However when I save the .xlsx file I still receive a warning about macos in the non-macro enabled workbook. Any assistance is appreciated.

Sub m_SaveWBasXLSX()
'
    With Application
      .ScreenUpdating = False 'True
      .EnableEvents = True 'False
      .DisplayAlerts = False
      .Calculation = xlManual 'xlCalculationAutomatic
    End With ' Application
    '
    Dim ThisWb As Workbook
    '
    Set ThisWb = ActiveWorkbook
    ChDrive "S:"
    ThisWb.SaveAs "S:\AD_Listing_" & Format(Now, "mm-dd-yyyy_hmmAM/PM") & ".xlsx", FileFormat:=51
    ThisWb.Save
    With Application
      .ScreenUpdating = True 'False
      .EnableEvents = True 'False
      .DisplayAlerts = False
      .Calculation = xlCalculationAutomatic 'xlManual
    End With ' Application

End Sub

 

[Shiseiji]

It's not so much the temp location, that's just good housekeeping for a temporary file that will eventually be deleted. Rather the key is making use of the Workbook object 'SaveCopyAs' method so that you can spawn off a macro-free .xlsx version without affecting, or closing the source workbook containing the macro.

Thanks! As I mentioned , continuous improvement, appreciate your time.

Ron