Recorrer rango en una funcion

Hola a todos,

La duda que tengo es como hacer recorrer un rango por ejemplo (A1:A5) en el siguiente ejemplo:

Function Revo(A1:A5, y)

For f = 1 To 100

Tiwr = (1 + f * (A1 / y))*(1 + f * (A2 / y))* ... *(1 + f * (A5 / y))

If Tiwr > wer Then wer=Tiwr

If wer=Tiwr Then t=f

Next f

Revo = t

End Function

Lo que quiero es que me de la f que hace maximo el valor de Tiwr que depende del rango A1:A5 y y.

Gracias