Problema funcion "ExtraerDeArchivo" con "ExecuteExcel4Macro"

He escrito una funcion que he visto para resolver el INDIRECTO para libros
cerrados (escrita por Miguel Angel, por cierto un crack).

El problema que tengo es que quiero usar la funcion "ExtraerDeArchivo"
directamente en la celda pero no me funciona.
CELDA = ExtraerDeArchivo($G$3;$B$8;"Datos";B10)
(para el directorio y archivo utilizo el valor de una celda)
FUNCION
Function ExtraerDeArchivo( _
ByVal DelDirectorio As String, _
ByVal DelArchivo As String, _
ByVal DeLaHoja As String, _
ByVal DeLaReferencia As String)
Dim TomarDe As String
If Right(DelDirectorio, 1) <> "\" Then DelDirectorio = DelDirectorio & "\"
TomarDe = "'" & DelDirectorio & "[" & DelArchivo & "]" & DeLaHoja & "'!" & _
Range(DeLaReferencia).Range("a1").Address(, , xlR1C1)
ExtraerDeArchivo = ExecuteExcel4Macro(TomarDe)
End Function

Gracias por adelantado!!