Save file with current month name

[Dj Jack]

Hi, Everybody...


Can you help me... i want to try to save an excel workbook with the name of the next month.

Example:

If today is 28/07/2018 i need that woorkbook save as "Calculator AUGUST"

The next month i'll create a new one... and i need to save as "Calculator SEPTEMBER"

Greetings..

 

[Michael M]

Maybe this, but you will need to save the directory location to suit !!

Sub MM1()
ActiveWorkbook.SaveAs Filename:="C:\Data\ " & "Calculator" & Format(DateSerial(Year(Date), Month(Date) + 1, 1), "mmmm"), FileFormat:= xlNormal
End Sub

 

[Dj Jack]

Thanks a lot!! only i have to change the file format to macros enabled...

ActiveWorkbook.SaveAs Filename:="C:\ " & "Calculadora " & Format(DateSerial(Year(Date), Month(Date) + 1, 1), "mmmm"), _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Greetings!!

 

[Michael M]

Glad it worked....