Macro renombrar libro excel

Hola a todos. Tengo un libro excel dentro de una carpeta ubicada en el escritorio, y necesito una macro para que cuando una celda concreta del libro (A1 p.ej.), cambie de valor, el libro cambie su nombre actual por el nuevo valor de la celda A1. La versión que utilizo es la 2007.

Muchas gracias.-