Sub t()
Dim Cell As Range, Product As Single, c As Range
Do While MsgBox(Title:="Наборы блоков ячеек", _
Prompt:="Имеются блоки ячеек?", _
Buttons:=4) = vbNo
Loop
Set Cell = Application.InputBox("Укажите нужный диапазон", "Выбор диапазона", Selection.Address, , , , , 8)
For Each c In Cell
Product = Product + c ^ 2
Next
MsgBox Title:="Результаты расчетов", _
Prompt:="Произведение элементов наборов блоков ячеек равно = " & Product, _
Buttons:=0
End Sub