One Macro Saving file as different file name each month

[Maceod1825]

I have a spreadsheet that I want to save monthly to several a folder. I created the macro while in the "22 Jan...." file, it worked great. I then entered 21Dec data wanting to save the spreadsheet to the folder as "21 Dec...", the macro has the file name "22 Dec..." in it and asked if I want to overwrite. Is there a way to create a macro that I can save as "current file name" using the same macro each month?

 

[number kruncher]

Dim filename as String
filename = ThisWorkbook.Name