sin utilizar celdas de excel

Hola Fredy,

El siguiente codigo (igual que la formula) solo funcionara si el libro
activo se ha guardado al menos una vez:

Sub Test()
MsgBox Evaluate( _
"=MID(CELL(""filename""),1,FIND(""["",CELL(""filename""))-1)")
End Sub

Saludos,
KL

"fredy" wrote in message
news:

benas tardes
quisiera saber si la formula
Range("A1").FormulaR1C1 = _
"=MID(CELL(""NOMBREARCHIVO""),1,FIND(""["",CELL(""NOMBREARCHIVO""))-1)"
que se utiliza para obtener la ruta donde se encuentra el archivo puede
ser
calculada en el codigo es decir sin utilizar ninguna celda de excel. como
seria entonces la formula?

muchas gracias