Office.Excel.Dar valor a una celda igual al de la hoja en la que se encuentra

¿CÓMO PUEDO HACER QUE UNA CELDA TOME EL VALOR DEL NOMBRE DE LA HOJA EN LA QUE SE ENCLAVA?

Con este código resolveríamos el problema:

=EXTRAE(CELDA("nombrearchivo";A1);ENCONTRAR("]";CELDA("nombrearchivo";A1))+1;31)