Macro a la que pasar un rango

hola

... una macro, que le pase un rango de celdas, por ejemplo A1:c5

¿como defino esa variable en function?.<<<<

function MiFuncion ( MiRango as Range) as double

Otra cosa mas, como recorro las celdas del rango?.<<<

depende lo que busques, pero un par de posibilidades podrian ser
estas=>

opc.1 => con un bucle For Each +/- asi =>

function MiFuncion ( MiRango as Range) as double
dim celda as range
for each celda in MiRango
' aqui tus instrucciones tipo =>
mifuncion = celda * 2
next

opc.2 => con un bucle For Next +/- asi

function MiFuncion ( MiRango as Range) as double
dim n as long
for n = 1 to MiRango.cells.count
' aqui tus instrucciones tipo =>
mifuncion = mirango.cells(n) * 2
next

son solo dos posibilidades (OJO recorren TODAS las celdas del rango)

un saludo
Ivan