Excel - Como hacer Macros para guardar

Como puedo hacer una macro que me permita guarda un documento excel con el nombre que tenga una celda seleccionada de mi hoja de calculo.
ej: si selecciono la celda c4 y contiene el dato AUTO al momento de guardar el documento se guarde con el nombre AUTO.

aa = Range("C4").Value ' asi se obtiene el valor de una celda

fech = Date ' para guardar la fecha esto es opcioanal

guarda = "C:\Reportes\" & aa& " " & Mid(fech, 1, 2) & "-" & Mid(fech, 4, 2) & "-" & Mid(fech, 7, 4) & ".xls"

.ChDir "C:\Reportes"

.Application.DisplayAlerts = False 'esto te elimina la advertencia de guardar archivos con el mismo nombre

.ActiveWorkbook.SaveAs FileName:=guarda, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Me tira un error de sintaxis en la siguiente linea :

guarda = "C:\Reportes\" & aa& " " & Mid(fech, 1, 2) & "-" & Mid(fech, 4, 2) & "-" & Mid(fech, 7, 4) & ".xls"

Alguien me puede ayudar.

Tenes que reemplazar la palabra "guarda" por la palabra "save"

Suerte.