Ciao
non ho visto l'allegato, comunque:
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="D:\TEST\Nome_" & Month(Date) & "_" & Year(Date) & ".xlsx"
ActiveWorkbook.Close
Non puoi usare "\" nel nome file.
Fossi in te invertirei anno e mese....poi vedi tu.
saluti
[Modificato da dodo47 20/07/2017 18:07]
Domenico
Win 10 - Excel 2016