I'm doing (more or less) the following.
[VBA]
For Each rn In .Range(.Cells(1, 1), .Cells(3, 1))
rn.Value = rn.Value - 1
Next rn
[/VBA]
I wonder, however, if it's possible to perform such an assignment to all the range at once. I.e. - perform a drop of every cell's value by one.