Excel VBA простого код ошибка

Question

Я пытаюсь написать функцию в Excel, что:

1. Перебирает каждый лист
2. проверяет, является ли введенная строка существует в подаваемой ячейке
3. Добавляет заданную величину ячейки к возвращаемому значению, если шаг 2 соответствует True

Я прошел через свою функцию и получаю правильные значения, пока функция не добавит 4-я ячейка к моему возвращаемому значению.

У любого есть идеи, что происходит? Благодаря!

---

Function Revenue(row As Integer, col As Integer, str As String) As Integer 

    Dim i As Integer 

     For i = 2 To Worksheets.Count 

      If Worksheets(i).Cells(row, col) = str Then 

       Revenue = Revenue + Worksheets(i).Cells(21, 2) // Bug occurs on 4th iteration 
       Debug.Print Revenue 

      End If 

     Next i 


End Function 

Answer 1

Вы должны установить значения для строки и седловины перед их использованием.