Excel - Macro Excel que guarde el archivo activo poniéndole el nombre el valor de una celda.

Hola a todos; A ver si me podéis echar una mano, busco una macro que guarde el archivo activo con el valor de una determinada celda. Si por ejemplo en la celda D1 hay un 100 que la macro guarde el archivo con el directorio X con el nombre 100. xlsx o xlsm según corresponda.
Gracias y saludos