Excel - Nombre de Etiqueta en Celda

¿Existe alguna formula o procedimiento que me permita colocar en una celda el contenida de la etiqueta de las hojas de Excel?. El caso es que mensualmente debo hacer un presupuesto al que debo colocarle en el titulo el mes y tambien en la etiqueta...... el cual debo enviarlo por correo como PDF, entonces no me funciona la opcion de encabezados de Excel.

Gracias!

En un modulo:

Function nombrehoja()
nombrehoja = ActiveSheet.Name
End Function

En cuaquier celda:

= nombrehoja()

Abraham