[Excel VBA]navigazione range di celle

[nicola75ss]

Ti scrivo un esempio banale. Ho messo in un foglio di excel questi valori

     a     b      c
1   1     2      3
2   4     5      6

e voglio che a partire da 5 righe più in basso venga visualizzato ciascun valore moltiplicato per 2 (dopo aver ovviamente selezionato l'intervallo delle 6 celle).

Sub intervallo()
For Each cella In Selection.Cells
ActiveSheet.Cells(cella.Row + 5, cella.Column) = cella.Value * 2
Next cella
End Sub

edit. Arrivo tardi, scusate.