Sumar un rango en VBA

Hola a todos

Estoy haciendo una funcion en la cual hay una parte donde
necesito que haga la suma de un rango, pero no se como
hacerla con VBA, intente un ciclo como el siguiente, pero
me esta mandando un error, y como es una funcion, no
despliega una ventana con el error para saber que es, la
rutina es la siguiente

For cSum = 1 To 12
vSuma = vSuma + Cells(vPromAnt.Row, vPromAnt.Column +
cSum).Value
Next

Alguien sabe cual es mi error, o alguna otra forma de
hacer una suma de un rango de celdas en VBA???

Gracias

Hola a todos

Estoy haciendo una funcion en la cual hay una parte donde
necesito que haga la suma de un rango, pero no se como
hacerla con VBA, intente un ciclo como el siguiente, pero
me esta mandando un error, y como es una funcion, no
despliega una ventana con el error para saber que es, la
rutina es la siguiente

For cSum = 1 To 12
vSuma = vSuma + Cells(vPromAnt.Row, vPromAnt.Column +
cSum).Value
Next

Alguien sabe cual es mi error, o alguna otra forma de
hacer una suma de un rango de celdas en VBA???

Gracias
.