Hej Bjarne,
Fejlen kommer fordi man tidligere kunne kode filtypen ".xls" ind i filnavnet som en tekst, men med de nye filtyper (xlsx, xlsm osv.) skal nu også bruge 'FileFormat'
Det er faktisk ikke svært og er en mere korrekt måde at gøre det på
Denne kodestump gemmer filen som xlsm
Filnavn = "C:\Testfil.xlsm"
ActiveWorkbook.SaveAs FilNavn, FileFormat:=52
Her er en liste over nogle af de forskellige FileFormats i Excel 2007 og nyere
51 = xlsx
52 = xlsm
50 = xlsb
56 = xls
Din kode bliver derfor:
Sub BJ_Gem()
' Makro oprettet 14-01-99 af Bjarne Jensen
' Makro rettet 25-07-01 kl. 14:16 af Bjarne Jensen
' Makro rettet 19-10-12 kl. 11:16 af Bjarne Jensen
' Makro rettet 25-10-12 kl. 10:01 af Allan Thustrup Mortensen
'
' Genvejstast: Ctrl+Skift+G
' 1) Først Gemmes der normalt på en Nøgle (*.xlsm) og derefter som backup fil.
Sti = "E:\"
FilNavn = "Privatøkonomi " & Range("FiscalYear").Value
ActiveWorkbook.SaveAs Sti & FilNavn & ".xlsm", FileFormat:=52
' 2) Derefter gemmes der normalt på C-Drevet (*.xlsm) og derefter som backup fil.
Sti = "C:\Dokumenter\Privatøkonomi\"
ActiveWorkbook.SaveAs Sti & FilNavn & ".xlsm", FileFormat:=52
Application.Quit
End Sub