Проблема с выполнением процедуры. - VB

Формулировка задачи:

Имею следующий код на VBA для работы на расчетных листаз, содержит функцию и процедуру.
_{QualGroup(InResRate )
i
sup Range

Worksheets().Activate

i =
sup Range()
(InResRate > sup.Value)
i = i +

QualGroup = i +

CheckPortfs()
i
j
col_portf_beg
serv_col

Columns().Insert Shift = xlLeft

i = Worksheets().Cells.Find().Row
j =
serv_col = Worksheets().Range().Column +
col_portf_beg = Worksheets().Range().Column

(Worksheets().Cells(i, serv_col) <> )
(Worksheets().Cells(i, serv_col) = )
k =
Worksheets().Cells(j + , ) = Worksheets().Cells(i, col_portf_beg + k)
j = j +

i = i +

i =
j =

(Worksheets().Cells(i, ) <> )
Worksheets().Cells(j, ) = Worksheets().Cells(i, )
Worksheets().Cells(j, ) =
j = j +
i = i +

Worksheets().Activate
i =
(Cells(i, ) <> )
j = Range().Find(Cells(i, ).Value).Row
Cells(j, ).Value = Cells(j, ).Value +
i = i +

i =
j =
(Cells(i, ) <> )
(Cells(i, ) <> )
Range().Cells(j + , ) = Cells(i, )
Range().Cells(j + , ) = Cells(i, )
j = j +}
Функция написана для присуждения определенных категорий в зависимости от принимаеемого парметра.
Процедура же написана для проверки совсем других чисел. Но почему-то, когда я в отладчике исправлял один косячок (в коде его уже нет), то с удивлением обнаружил, что каждый раз, когда в ходе выполнения кода процедуры встречается команда, отвечающая за присвоение значения ячейке, то выполняется функция.
Вопрос в том, почему она выполняется, а также как этого избежать

Решение задачи: «Проблема с выполнением процедуры.»

textual
                            Листинг программы 
                        

                            <font color="blue">Function</font> My_Func()
    Application.Volatile
    <font color="#00AA00">' </font>
    <font color="#00AA00">'    Remainder of the function</font>
    ">
<font color="blue">End</font> <font color="blue">Function</font>
                        