Opslaan als: Naam van het bestand + een toevoeging

[trainers]

De naam van het bestand is: LEDENBESTAND 2017-2018.xlsm

Onderstaande code werkt, maar moet er elk jaar aan denken om die aan te passen. Ging dus weer mis dit jaar.

ActiveWorkbook.SaveAs FileName:= _
        "C:\Users\ADMIN\Desktop\LEDENBESTAND 2017-2018 BESTUUR.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Vandaar mijn vraag.
Hoe kan ik het bestand opslaan als .........

Groeten,
Trainers

 

[VenA]

Zoiets?

ActiveWorkbook.SaveAs "C:\Users\ADMIN\Desktop\LEDENBESTAND " & Year(Date) & "-" & Year(Date) + 1 & " BESTUUR.xlsm", 52

 

[trainers]

Yep. That's it.
Thank you Sir :thumb: