Option Explicit
Private Sub calculateRangeOneByOne()
Dim rangeIterator As Range
Dim rangeToIterate As Range
Dim sum As Double
Set rangeToIterate = Range("A8", "E8")
sum = 0#
For Each rangeIterator In rangeToIterate
sum = sum + rangeIterator
Next
End Sub
You usually does not want to iterate over ranges one-by-one. there are tons of functions which work on ranges and so this example is definitly a poor one. You'd better use e.g Sum here but just to give you an idea. A range is a collection and you can iteratee over it with for each, You can also use for with index access. But this is at least a bit less "pain"