Problemas al Actualizar Función Personalizada

Hola grupo, tengo el siguiente problema con una función personalizada:

Cuando creo por primera vez la fórmula toma muestra el valor que es, pero
cuando cambio el valor de las celdas a que hace referencia no actualiza el
valor calculado. El problema no es por configuración de Excel porque si hago
el cálculo directamente, sin utilizar la función que cree si se actualiza.

La función personalizada tiene dos variables, una que es una celda y otra
que es un rango. El problema esta cuando modifico alguno de los valores
contenidos en este último. La verdad no se que hacer.

Este es el contenido de la función en dos versiones y ambas presentan el
mismo problema:

Function PrecioAct(ByVal Precio As Range, ByVal Pos As Integer) As Double
Dim i As Double
Dim Vector As Range
Dim Capital As Double
Dim cell

i = 1
Set Vector = Range(Precio.Offset(0, 1), Precio.Offset(0, Pos))
Capital = Precio.Value

For Each cell In Vector
i = i * (1 + cell)
Next
PrecioAct = Round(Capital * i, 2)
End Function

Function Conver(ByVal Precio As Range, ByVal Pos As Integer) As Double
Dim i As Double
Dim j As Integer
Dim Capital As Double

i = 1
For j = 1 To Pos
i = i * (1 + Precio.Offset(0, j))
Next
Capital = Precio.Value

Conver = Round(Capital * i, 2)
End Function

Gracias y saludos.

B.M