Macro con guardar fecha actual

¿Hay una manera de hacer una macro para guardar un archivo con el día actual en el nombre. Quiero guardar esto todos los días con la fecha correcta.

Esto es lo que tengo como una macro, bastante simple, pero tengo problemas para obtener la fórmula de la fecha actual en el nombre del archivo (si es posible)

Sub Save()
    ActiveWorkbook.SaveAs Filename:="X:\file06-21-2012\.xlsm", FileFormat _
    :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Así que mañana me gustaría que el marco lo guarde como archivo06-22-2012.

Gracias

Respuestas a la pregunta(2)

Su respuesta a la pregunta