For int_Search_Current_Level =  1  To (int_Search_Level -  1 )

    int_Search_Current_Level_Col = Column_By_Header("Conv", Get_Value_From_Sheet("Columns", "Level", int_Search_Current_Level, "Name"))
    int_Search_Current_Next_Level_Col = Column_By_Header("Conv", Get_Value_From_Sheet("Columns", "Level", int_Search_Current_Level +  1 , "Name"))
    str_Search_Current_Level_DB_Name = Get_Value_From_Sheet("Columns", "Level", int_Search_Current_Level, "DB Name")
    Set rng_Search_Cell =   sht_Conv.Rows(str_Searched_Rows).Columns(int_Search_Current_Level_Col) 
          .Find(What:=rst_Search.Fields(str_Search_Current_Level_DB_Name).value, Lookat:=xlWhole)  -- ошибка вываливается здесь
    str_Searched_Rows = (rng_Search_Cell.row -  1 ) & ":"
    If sht_Conv.Cells(rng_Search_Cell.row, int_Search_Current_Next_Level_Col).value = "" Then
         rng_Search_Cell.Select
         Conv_Drill "Down", True
        DoEvents
    End If
    str_Searched_Rows = str_Searched_Rows & sht_Conv.UsedRange.Rows.Count
                    
    Set rng_Search_Cell = Nothing
Next int_Search_Current_Level