VB Save As non-Macro enabled workbook

[Mcook13]

I have been running the same VB code for years and have not run into any errors where my macro enabled workbook performs a Save As, as a non-macro enabled workbook or xlsx.

Now I get the error, "VB projects and XLM Sheets cannot be saved in a macro-free workbook."

I cannot figure out what is causing the error.

Below is my code. Any help is appreciated as to why now I cannot save as and receive the error.

Sub UpdateOOR()

    Application.DisplayAlerts = False
    ActiveWorkbook.Worksheets("OOR").ListObjects("MTs_SG_OOR").QueryTable.Refresh BackgroundQuery:=False
    Cells.Select
    Cells.EntireRow.AutoFit
    ActiveWorkbook.Save
    For Each Shp In ActiveSheet.Shapes
      Shp.Delete
    Next Shp
    Range("B:D").EntireColumn.Hidden = True
    Range("I:I").EntireColumn.Hidden = True
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "P:\Customer New\SG\3009 SG (60000009ES) Plastic Fittings\7. Status Reports (SR)\Open Order Reports\2023\" & "SG Plastics OPEN ORDER REPORT " & Format(Now, "mm.dd.yy") & ".xlsx", FileFormat:=51
    Application.DisplayAlerts = True
End Sub

 

[RoryA]

There are a few other threads open on this at the moment. The issue is caused by a new dialog that pops up when doing this. The old one defaulted to Yes which the displayalerts = false would effectivelly click. The new one defaults to 'Go Back' which then causes the error. It's not clear whether this is a temporary change (there doesn't appear to be a lot of logic currently as to who is affected).

 

[Mcook13]

There are a few other threads open on this at the moment. The issue is caused by a new dialog that pops up when doing this. The old one defaulted to Yes which the displayalerts = false would effectivelly click. The new one defaults to 'Go Back' which then causes the error. It's not clear whether this is a temporary change (there doesn't appear to be a lot of logic currently as to who is affected).

How do I go about modifying my code to then proceed with saving as a non-macro (.xlsx) workbook?

 

[RoryA]

Do you have any code in the worksheets' or thisworkbook modules?

 

[Mcook13]

Do you have any code in the worksheets' or thisworkbook modules?

This is my code.

Sub UpdateOOR()


    Application.DisplayAlerts = False
    ActiveWorkbook.Worksheets("OOR").ListObjects("MTs_SG_OOR").QueryTable.Refresh BackgroundQuery:=False
    Cells.Select
    Cells.EntireRow.AutoFit
    ActiveWorkbook.Save
    For Each Shp In ActiveSheet.Shapes
      Shp.Delete
    Next Shp
    Range("B:D").EntireColumn.Hidden = True
    Range("I:I").EntireColumn.Hidden = True
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "P:\Customer New\SG\3009 SG (60000009ES) Plastic Fittings\7. Status Reports (SR)\Open Order Reports\2023\" & "SG Plastics OPEN ORDER REPORT " & Format(Now, "mm.dd.yy") & ".xlsx", FileFormat:=51
    Application.DisplayAlerts = True
End Sub

 

[RoryA]

If that's the only code, you could probably just copy all the sheets to a new workbook (using activeworkbook.sheets.copy) and then save the new active workbook instead?