Написать в VBA через подпрограмму:

Написать программу вычисления суммы факториалов всех нечетных чисел от 1 до 9.

Это основной код макроса с циклом перебора всех нечетных чисел

Sub SummFactorial ()

Dim summ As Long

Dim i As Byte

For i = 1 To 9 Step 2

summ = summ + Fact (i)

Next i

MsgBox (summ)

End Sub

а эта функция вызывает сама себя (рекурсия) для расчета факториала

Function Fact (s As Byte) As Long

If s < = 1 Then

Fact = 1

Else

Fact = s * Fact (s - 1)

End If

End Function

и уточните, если нужно, что должно быть в подпрограмме - весь код или только расчет факториала