Вызов подпрограммы в VBA

Это мой упрощенный сценарий:

    Sub SomeOtherSub(Stattyp As String)
        'Daty and the other variables are defined here

        CatSubProduktAreakum(Stattyp, Daty + UBound(SubCategories) + 2)

    End Sub

    Sub CatSubProduktAreakum(Stattyp As String, starty As Integer)

    'some stuff

    End Sub

Вызов CatSubProduktAreakum отмечен красным как «синтаксическая ошибка». Я не понимаю ошибки. Это простой вызов подпрограммы с двумя аргументами. Почему VBA не принимает вызов?