funcion "celda" para extraer el nombre de archivo en uso

Amigos la siguiente formula me da correctamente el nombre del archivo
con el cual estoy trabajando:

=TEXTO(EXTRAE(CELDA("filename"),ENCONTRAR("[",CELDA("filename"),1)+1,ENCONTRAR("]",CELDA("filename"),ENCONTRAR("[",CELDA("filename"),1))-ENCONTRAR("[",CELDA("filename"),1)-1),"")

lo que estoty haciendo en un codigo de macro es agregar la siguiente
linea:

Windows("sistem_fmdr v.1.6.xls").Activate

que me activa el archivo, mi deseo es asignar el valor del rango
"archivo" (nombre de rango) ubicado en la hoja2 del mismo libro en la
celda G1051 (que tiene la formula de arriba) , para hacer dinamico el
valor, pues si el usuario modifica el nombre del archivo la macro no
"encontraria" al libro "sistem_fmdr v.1.6.xls"

lo que hago es lo siguiente para asignar el valor a la variable
"archivo" dentro del modulo actual.


sub mimacro()

Set archivo = hoja2.Range("archivo")

Windows("archivo").Activate
..

Ops, pero no me funciona, si se cambia el nombre del archivo, no
detecta el cambio.


Pueden ayudarme por favor

Gracias Isaac