Formulas propias en excell

Buenas, tengo un archivo en excell que cuenta con una hoja
resumen y una hoja por mes. En las hojas por meses tengo
vinculos a una serie de archivos en los que tengo la informacion
a poner en la hoja. Para simplificar el fichero cree una formula
que obtiene el nombre de la hoja. Algo asi como:

Function NombreHoja(CELDA As Range)
NombreHoja = ActiveSheet.Name
End Function

El problema que tengo es que si escribo la formula en la hoja y
presiono enter me devuelve el valor. Pero si copio la formula en
el resto de las hojas me mantiene el valor original hasta que
entro en la linea y presiono f2 y luego enter, que me lo
recalcula. Tambien me ocurre lo mismo si cambio el nombre de la
hoja.

Quisiera saber si existe alguna forma de que me actualice
correctamente estos datos.

Gracias.