Visual Basic para Aplicaciones - Macro para Excel

Necesito hacer una macro de Excel q guarde el trabajo con el nombre que esta tomado de una celda determinada. Si alguno me pudiese proveer el codigo fuente o de donde puedo sacarlo, desde ya muchas gracias!

Esto puede servirte

Sub Guardar
Dim NombreArchivo as String
NombreArchivo = Range("D14") 'Celda donde esta el nombre
ThisWorkbook.SaveAs "C:\Ruta\" & NombreArchivo & ".Xls"
End Sub

Saludos

GRACIAS, ANDUVO A FULL