Ошибка 424 при поиске значения на листе

Private Sub Knopka10_Click()
 
' Месячный_отчет Макрос
 
Const ИмяЛиста1 As String = "REPAIR_DATA_LIST_"
Const ИмяЛиста2 As String = "Лист2"
'Обращаться к листам будем через переменные Лист1 и Лист2
'(кода меньше писать и не промахнёмся (не будем обрабатывать по ошибке др. лист)).
Set REPAIR_DATA_LIST_ = ActiveWorkbook.Worksheets(ИмяЛиста1)
'Set Лист2 = ActiveWorkbook.Worksheets(ИмяЛиста2)
'Определение последней строки на листе Лист1, содержащей данные
'(чтобы сузить диапазон поиска), (чтобы код быстрее работал).
With REPAIR_DATA_LIST_.Cells
    НизЛист1 = .Find(What:="*", LookIn:=xlValues, LookAt:=xlWhole, _
                SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
                MatchCase:=False, SearchFormat:=False).Row
End With
 
Call Функция10000
 
End Sub
Function Функция10000()
 
Dim Найдено As Excel.Range, Адрес As String
 
Const ЧтоИщем As String = "C01"
With REPAIR_DATA_LIST_.Range(REPAIR_DATA_LIST_.Cells(1, "BN"), REPAIR_DATA_LIST_.Cells(НизЛист1, "BN"))
    Set Найдено = .Find(What:=ЧтоИщем, LookIn:=xlValues, LookAt:=xlWhole, _
                SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False)
    If Not Найдено Is Nothing Then
        Адрес = Найдено.Address
        Do
            Найдено.Offset(0, -8).FormulaR1C1 = "OOW/CID"
            Set Найдено = .FindNext(Найдено)
        Loop While Найдено.Address <> Адрес
    End If
End With
End Function

Dim REPAIR_DATA_LIST As Excel.Worksheet, Ëèñò2 As Excel.Worksheet
Dim ÍèçËèñò1 As Long