Excel VBA Runtime Ошибка 1004 - не ясно, почему

Question

Я получаю ошибку во время выполнения, запустив этот код:

    For Each cell In Range("B1").EntireColumn.Cells
        If cell.Value = ListBox1.Value Then
            FIng(i) = cell.Row
            i = i + 1
        End If
    Next cell

    For i = 0 To UBound(FIng)
        If Cells(FIng(i), 1).Value > 0 Then 'error: application defined 1004
            MsgBox (Cells(FIng(i), 1).Value)
        End If
    Next i

Ошибка возникает в строке с комментарием.Я проверяю, есть ли в столбце определенное значение, затем сохраняю строку столбца в массиве.Следующий цикл использует этот массив для доступа к значению в первом столбце и его отображения.Это работает, но я получаю это сообщение об ошибке, и я не знаю, почему.

Answer 1

Это правильная секунда для цикла:

For i = 0 To UBound(FIng)
    If FIng(i) > 0 Then 'error: application defined 1004
        MsgBox (Cells(FIng(i), 1).Value)
    End If
Next i