Struggling to save as xlsx file in VBA

Question

Im new to VBA so any help is appreciated. Im having a problem with my SaveFile sub. This actually allows me to save the file but when I try to open it again Excel doesn't recognize it as an Excel file. In fact if I right click the file from my desktop and check the properties, the type of file is "File". I've read up on the formatting stuff but cant get this file to save as just an xlsx format. I was able to get a macro-enabled excel file to work properly but that's not what I want. My code is below. Please ask questions if its not clear!

Thanks for your help.

Sub SaveFile()

    MsgBox ("You will now be prompted to save your file") 'Notifies User 
    savename = Application.GetSaveAsFilename()  'Gets directory/name
    ActiveWorkbook.SaveAs Filename:=savename, FileFormat:=51 'Something is wrong 

End Sub

Here is the picture of the "Formatless" file

Answer 1

When saving the file you should save it with its extension:

Sub SaveFile()

    savename = Application.GetSaveAsFilename(fileFilter:="Exel Files (*.xlsx), *.xlsx")) 
    ActiveWorkbook.SaveAs Filename:=savename, FileFormat:=51 

End Sub