Оптимизация операций с массивами

[salder]

Ребят, помогите, пожалуйста оптимизировать код:

Dim s(9) As Integer

s(0) = Range("A1").Value + Range("B1").Value
s(1) = Range("A2").Value + Range("B2").Value
s(2) = Range("A3").Value + Range("B3").Value
s(3) = Range("A4").Value + Range("B4").Value
s(4) = Range("A5").Value + Range("B5").Value
s(5) = Range("A6").Value + Range("B6").Value
s(6) = Range("A7").Value + Range("B7").Value
s(7) = Range("A8").Value + Range("B8").Value
s(8) = Range("A9").Value + Range("B9").Value
s(9) = Range("A10").Value + Range("B10").Value

a = s(0) + s(1) + s(2) + s(3) + s(4) + s(5) + s(6) + s(7) + s(8) + s(9)

MsgBox (a)

Все пытался с циклом For Each In ...Next
Но ничего не получилось.
Не могу найти подходящий пример на котором наглядно понять принцип работы с этим циклом.

[Hugo121]

Зачем тут массивы?

Sub tt()
    Dim a As Double
    a = Application.Sum(Range("A1:B10"))
End Sub

Sub ttt()
    Dim a As Double, cc As Range
    For Each cc In Range("A1:B10")
        a = a + cc.Value
    Next
End Sub

А массивы нужно на каких-нибудь других, толковых, задачах изучать.