Excel VBA cумма элементов массива

[LF-A]

Добрый день. Прошу прощения за глупый вопрос:
Создать программу расчета суммы чисел указанного диапазона.
F1:H23
С этим заданием возникли проблемы, помогите, пожалуйста.

Делаю сам так:
Sub M3sum()
For a = Range("F1") To Range("H23")
d = d + a
Next
MsgBox ("The result is " & d)
End Sub

Считает, но неверно. В чем может быть проблема?

[gsg]

Проблема в том, что неверно указаны пределы цикла for для a. Цикл идет от значения в f1 до значения в h23, но не для диапазона вцелом.

Sub Summ()

Dim Диапазон As Range, oRange As Range
Dim Сумма

Set Диапазон = Range("f1", "h23")

For Each oRange In Диапазон
    Сумма = Сумма + oRange
Next oRange

MsgBox Сумма

End Sub