"MSP77079 " wrote...
the VBA code is exactly as you wrote it.

But, as long as you are in VBA, why would you want to do it that way?

Why not:

Total = 0
For i = 1 to 4
Total = Total + cells(i, "A")
Next i

Perhaps either

Total = Evaluate("SUM(A1:A4)")

or

Total = Application.WorksheetFunction.Sum(Range("A1:A4"))

run more quickly than your For loop.