Найти функции в VBA

Question

Я начал легко демо-запись

Sub search() 
Range("B1:B7").Find("abc").Activate 
End Sub 

Я надеялся, что первенствует будут автоматически выбрать ячейку содержит значение «ABC» в нем, однако, я получил сообщение об ошибке, говорящем «объектных переменных или с переменной блока не установлена ​​". Пропустил ли я что-нибудь вообще, пожалуйста,

Цените его.

Answer 1

"https://msdn.microsoft.com/en-us/library/office/ff839746.aspx"

Sub tester() 
    With Worksheets(6).Range("B1:B500") 
     Set c = .Find("Smith Jon Junior", LookIn:=xlValues) 
     If Not c Is Nothing Then 
      firstAddress = c.Address ' not required 
      c.Activate 
     else 
      msgbox ("Not Found") 
     End If 
    End With 
End Sub