Simple VBA CopyAs

[hellovaras]

Hello, I have a very basic question. I want the below macro to output an xlsx file, not a macro file. I have tried changing the extension and the FileFormat but the copied file does not open. I get a message that the file types are different. Any and all assistance is appreciated. TIA

Sub Workbook_SaveUp()

Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs Filename:="\\XXXvvfile1\market_XXXXX\XXX \Reporting Analyst\Test_File_JLV.xlsm" <- it only works when I use the xlsm extension. Otherwise, the new SaveAs workbook wont open.
Application.DisplayAlerts = True

End Sub

 

[Domenic]

You can simply make a copy of the workbook, save it in the desired format, and then close it, like this . . .

Sub Workbook_SaveUp()

    Application.DisplayAlerts = False
    ActiveWorkbook.Sheets.Copy
    With ActiveWorkbook
        .SaveAs Filename:="\\XXXvvfile1\market_XXXXX\XXX \Reporting Analyst\Test_File_JLV.xlsx", FileFormat:=51
        .Close
    End With
    Application.DisplayAlerts = True

End Sub

Hope this helps!