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