[guldo76]

qualcosa tipo:

i = 1
do until isempty(activesheet.cells(i,3).value)
   activesheet.cells(i,5).value = miaFunzione(activesheet.cells(i,3).value)
   i = i+1
loop