Реализовать поиск по листу Excel

Всем привет! Подскажите пожалуйста как сделать поиск определенного текста в Visaul studio 2013 типа Find ? этот код установки значения введенной в TextBox в ячейку работает
   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim R = Val(TextBox1.Text)
        Dim Exc As Object
        Exc = CreateObject("Excel.Application")   'обьявляем Excel
 
        If CheckedListBox1.CheckedItems.Count > 0 Then
            For i = CheckedListBox1.CheckedItems.Count - 1 To 0 Step -1
                Dim name = CheckedListBox1.CheckedItems(i)
                Exc.Workbooks.Open(Label1.Text & "\" & name & ".xlsx").Activate()
                Exc.Cells(1, 1) = R
                Exc.Rows(7).Insert(Shift:=-4121)
                Exc.ActiveWorkbook.Save()
                Exc.ActiveWorkbook.Close()
                Exc.Quit()
                CheckedListBox1.SetItemChecked(i, 0)   'снимаем выделение с элементы
                Label5.Text = CheckedListBox1.CheckedItems.Count  'выводит в Label кол-во оставшихся выделенных элементов
            Next
 
            Exc = Nothing
        Else : MsgBox("Ничего не забыли? А выбрать прайсы?", MsgBoxStyle.Critical, "Опа-а-а!!!")
        End If
 
    End Sub
но как только делаю что то типа
Exc.find(what:="Что то найти надо")
сразу начинает ругаться "Общий член "find" для типа "ApplicationClass" не найден" что я не так делают,что не подключил или не отключил
2 ответа

Примерно так
Exc.Range("a1:a500").Find(what:="Что то найти надо")
Требуется выставить диапазон поиска


Я уже разобрался но все равно спасибо большое