VBA Excel: как сделать выбор из неподвижной ячейки до текста, который нужно найти?

Question

Мне нужно сделать выбор из ячейки «A8» в ячейку, содержащую слово «endofsample». Это слово может быть в любом месте рабочего листа.

Answer 1

Это работает для меня.

Sub test() 
    Set INFO = Cells.Find(What:="endofsample", After:=ActiveCell, LookIn:=xlFormulas, _ 
      LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
      MatchCase:=False) 
    If INFO Is Nothing Then 
    Else 
    End If 

    INFO.Select 
    Range("A8", ActiveCell).Select 
End Sub