Ofimática - reto en excel, no se como hacerlo

Hola a todos: ya estoy desesperado, necesito hacer lo siguiente, necesito una macro que me guarde un libro excel, cuyo nombre debe ser la secuencia de texto o número que incluye la primera celda de la primera hoja. Ejemplo: abro una hoja excel nueva, en la primera celda (A1) de la primera hoja del libro pongo 'casa. me gustaría hacer una macro que al ejecutarla me guardara el documento con el nombre casa.xls, si en la primera casilla pusiera coche, que me lo guardara como coche.xls, no se como hacerlo, si alguno teneis alguna idea, por favor escribirla. Muchas gracias.

el sgte código es de la macro espero que te sirva