Modificar el nombre de las hojas de excel

Hola:
activesheet.name = Range("A1").value
Feliz año
"Luis" escribió en el mensaje
news:00bc01c3d2e9$3670f050$
Necesito modificar el nombre de las hojas de excel y que
lo tome del valor de una celda programada. ¿Se puede
hacer? Supongo que por programación con Visual se podrá,
pero yo no se.
Gracias.