vorrei salvare con nome in automatico tramite macro un file aggiungendogli la data corrente,

il comando è questo

Sub salva()
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:= _
"Modello (+ data corrente).xls"

in definitiva avrò il file: Modello 18-09-07.xls

come posso fare?