Makro Datei umbennen und speichern

[Basti123]

Hallo zusammen,

ich suche ein Makro mit dem die aktuell geöffnete Datei durch einen Klick auf die entsprechende Schaltfläche entsprechend umbenannt wird und anschließend gespeichert:

aktueller Dateiname: "Test"
neuer Dateiname: "Test_19_08_2017" also mit aktuellem Datum

Danke für eure Hilfe.