Excel, macro, VBA, salvataggi e date

[Respen]

Ciao a tutti,
premetto che sono un niubbo di VBA :).

Vorrei aiuto per soddisfare la mia esigenza.

Ho un file xlsx con circa un migliaio di righe che devo splittare in più file distinti secondo regole che si ripetono uguali tutti i mesi.

Perciò ho creato la seguente macro

Sub Crea_file()
'
' Crea_file Macro
'

'
Sheets("Analisi").Select

ActiveSheet.Range("$A$1:$T$2000").AutoFilter Field:=16, Criteria1:= _
"X-MEN"
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\...\X-MEN.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close

ActiveSheet.Range("$A$1:$T$2000").AutoFilter Field:=16, Criteria1:= _
"DISNEY"


ActiveSheet.Range("$A$1:$S$2000").AutoFilter Field:=17, Criteria1:= _
"PLUTO"
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\...\PLUTO.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close

ActiveSheet.Range("$A$1:$S$2000").AutoFilter Field:=17, Criteria1:= _
"PIPPO"
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\...\PIPPO.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close


ActiveSheet.ShowAllData

End Sub


Ne ho messo solo un pezzo ma dovrebbe bastare per farvi capire.

In sostanza prima filtro sugli X-MEN e creo un file apposta, poi filtro su DISNEY e successivamente sui singoli personaggi (colonna diversa) e creo un file per ciascuno (pippo, pluto, paperino ecc).

E fin qui ok, funziona.

Però avrei bisogno di aggiungere la data al nome di ciascun file salvato.
Ho letto da qualche parte che è possibile farlo, mi spiegate come per cortesia?

Vorrei che ciascun file avesse alla fine un _[data odierna].

Tenete presente che il mio file è composto da numerosi fogli, perciò potrei creare un foglio vuoto con la sola data e linkarci la macro, devo solo capire come fare.

Spero di essere stato abbastanza chiaro... :o


Grazie mille