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