Saving Files using VBA - xlsx format not working correctely

[Cat129]

I have googled, and sorry if I am missing something obvious. When I use the code below, it is saving itself as as an older version of Excel and I am loosing formatting.

What extension do I need to use to save it as the most recent version? I have made the error message go away with the display alert toggle, but this doesn't actually fix the issue

Dim MyFileName As String
Dim SaveFolder As String
Dim FPathName As String

Application.DisplayAlerts = False

MyFileName = "Change Request - " & Range("C2") & " " & Range("C3")
SaveFolder = "C:\Temp"
FPathName = SaveFolder & "\" & MyFileName & ".xlsx"


ActiveWorkbook.SaveAs Filename:=FPathName, FileFormat:=xlNormal
Application.DisplayAlerts = True

 

[Fluff]

Do you need it to be macro enabled?

 

[Cat129]

Do you need it to be macro enabled?

Yes, there is further code that is required by people who it gets emailed to

 

[Fluff]

In that case try

Dim MyFileName As String
Dim SaveFolder As String
Dim FPathName As String

Application.DisplayAlerts = False

MyFileName = "Change Request - " & Range("C2") & " " & Range("C3")
SaveFolder = "C:\Temp"
FPathName = SaveFolder & "\" & MyFileName & ".xlsm"


ActiveWorkbook.SaveAs FileName:=FPathName, FileFormat:=52
Application.DisplayAlerts = True

 

[Cat129]

In that case try

Dim MyFileName As String
Dim SaveFolder As String
Dim FPathName As String

Application.DisplayAlerts = False

MyFileName = "Change Request - " & Range("C2") & " " & Range("C3")
SaveFolder = "C:\Temp"
FPathName = SaveFolder & "\" & MyFileName & ".xlsm"


ActiveWorkbook.SaveAs FileName:=FPathName, FileFormat:=52
Application.DisplayAlerts = True

Perfection! Thank you

 

[Fluff]

You're welcome & thanks for the feedback.