Direccion de celda

mueve la seleccion a la celda de abajo
range("a2").select
do
' haces algo
'
'
' terminas de hacer
selection.offset(1,0).select
loop until selection.value=""

"Llen" escribió en el mensaje
news:007101c39f1a$61453f00$
HOla

Estoy guardando la dirección de una celda de la siguiente
forma:
referencias = Selection.Address
despues ejecuto unas instrucciones, al final de ellas
quiero que la dirección se aumente en uno para que
continue el ciclo , por ejemplo la primera dirección que
tengo es $A$2 quisiera ahora cambia a $A$3 y asi
sucesivamente hasta completar un ciclo
como puedo aumentar la dirección????