Office - Macro en excel guardar un hoja con nombre fecha

Tengo una macro en excel que me guarda una hoja del libro, necesito que la misma se guarde con el nombre que tiene determinada celda del libro Ej: si fuese la fecha , 24082002.xls

Prueba con esto:

Fecha = Worksheets("Hoja1").Range("Fecha").Value
Nombre_Archivo = Format(Fecha, "yymmdd")
Path= "c:\" + Nombre_Archivo + ".xls"
ActiveWorkbook.SaveAs (Path)