[cadil]

Помогите, пожалуйста, записать в Delphi следующий макрос VB (поиск записи bbbb в таблице Эксель):

Код:

Sub find_1()
   Range("A1").Select
    Cells.Find(What:="bbbb", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End Sub