Создайте макрос в excel, который вычисляет произведение чисел, расположенных в выделенном диапазоне 5-и ячеек

Sub prod()
    Dim p As Double
    p = 1
    For Each x In Selection
        p = p * x.Value
    Next x
    MsgBox "Произведение равно " + CStr(p)
End Sub

Замечание: Ячейки могут располагаться в строке или столбце. Если их будет четное количество (а не 5), то они вообще могут располагаться в прямоугольнике - макрос универсальный. Числа могут быть целыми и/или вещественными.