Ошибка в функции для создания формулы en excel и передачи этой формулы в модуль f2 ()

Question

Здесь я хочу, чтобы функция f1 () создала формулу en excel и передавала эту формулу в f2 (), не возвращаясь обратно к f1 (), а функция f2 () заменяет формулу, при этом я получаю ошибку компиляции: Ожидается в строке Sub f2( Optional endAll As Boolean = False, jR1 as Long, jC1 as Long, jGetFormula as String)

Sub f2( Optional endAll As Boolean = False, jR1 as Long, jC1 as Long, jGetFormula as String)
    Cells(jR1, jC1) = Evaluate(jGetFormula)
    If endAll Then Exit Function
End Sub

Function f1()
    jGetFormula = "=A1*10^3*A2/148"
    jR1 = Selection.Row
    jC1 = Selection.Column
    Call f2(True, jR1, jC1, jGetFormula)
End Function

Answer 1

перенести необязательный параметр в конец объявления.

Sub f2(jR1 As Long, jC1 As Long, jGetFormula As String, Optional endAll As Boolean = False)

Каждый параметр, следующий за необязательным параметром в определении процедуры, также должен быть необязательным.