Hola:
La instrucción que necesitas es esta:
ActiveWorkbook.SaveAs Filename:=Range("D6").Value
Una instrucción más completa, que contemple la ruta, formato y clave:
(cargar previamente la variable ruta)
nbre = ruta & Range("D6").value & ".xls"
ActiveWorkbook.SaveAs Filename:=
nbre, FileFormat:=
xlNormal, Password:="
clave", ReadOnlyRecommended:=False
Saludos
Elsa
http://galeon.com/aplicaexcel