Excel - duda con Average

Hola,

Estoy intentando calcular el promedio de un rango desde codigo con:

Function myProm2(rng As Range) As Double
myProm2 = [Average(rng)]
End Function

al pasarle los datos desde excel le digo a la celda =myProm2(A2:A8). pero no hace nada.

que me falta? que error estoy cometiendo?

gracias

Tienes que colocarlo asi:

Function myProm2(rng As Range) As Double
myProm2 = Evaluate("Average(" & rng.Address & ")")
End Function

Saludos

Abraham