Problemas con WorksheetFunction.HLookup

Hola

Tengo una funcion personalizada en un modulo de excel.

Public Function DameValor(ByVal Codigo As String) As Double
VameValor = Application.WorksheetFunction.VLookup(Codigo,
ThisWorkbook.Worksheets("SOURCE").Range("C4:D11"), 2, falso)
End Function

la cual es identico a a utilizar en una celda la formula
=Buscarv(Codigo;el rango("C4:D11");Columna (2); Falso)

Si los datos que que estan en la hoja SOURCE, se actualizan, en el recalculo
el segundo metodo actualiza sin problema los valores. es decir, funciona
perfectamente.

Pero en el caso de utulizar la funcion VBA, los valores se quedan estaticos,
es decir, asume
lo valores iniciales cuando se edito la celda.

Si entro en el modulo para realizar alguna modificacion a la funcion,
(inserto un espacio y lo borro)
la siguiente actualizacion de los datos se realiza sin problema, por unica
vez, luego los datos
quedan desfazados entre la funcion Buscarv() y la funcion personalizada
Damevalor()

LA GRAN CONSULTA
¿como hacer para que se refresquen los datos de mi funcion personalizada.?

Saludos y de antemano muchas gracias.
Dick Fernández

Hola DF.

En la ventana de proyecto, en microsoft excel objetos, en el
correspondiente
a la hoja "RESOURCE", pega el siguiente código:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.Volatile
End Sub

Hola nuevamente, el problema me sigue esquivando, le envio un modelo
simple del problema.

No se si estan permitidos los adjunto, pero me arriesgare por esta vez,
esta libre de virus asi que no os preocupeis. Chequeado con el norton.

Contiene una simple macro que utiliza la funcion WorkshettFunction.VLookup

Para ver el problema solo basta modificar cualquier valor de la colummna B
cambio que se vera reflejado en la Columna "D"
pero no en la columna "E" que si debiera.

La hoja ya tiene incorporada la funcion que me indicaste.

Los datos se obtienen desde internet y bases de datos, y estaran dentro un
archivo XLA
esto implica que el usuario final accede a los datos solo con la funcion
Leerdato().

Soluciones o sugerencias son bienvenidos ya que este problema me tiene de
cabeza.

Saludos
Dick Fernandez
Santiago - Chile