Создайте макрос в 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), то они вообще могут располагаться в прямоугольнике - макрос универсальный. Числа могут быть целыми и/или вещественными.