<?xml version="1.0" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
   <ribbon startFromScratch="false">
      <tabs>
         <tab id="customtab" label="НАЙТИ">
            <group id="customgroup" label="найти">
               <editBox id="ed1" onChange="boxchange"/>
               <button id="btn1" label="поиск вперед" onAction="btnnext"/>
               <button id="btn2" label="поиск назад" onAction="btnprev"/>
            </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>

Public s$

Sub boxchange(control As IRibbonControl, text As String)
    On Error Resume Next
    s = text
    Cells.Find(What:=s).Activate
End Sub

Sub btnnext(control As IRibbonControl)
    On Error Resume Next
    Cells.FindNext(After:=ActiveCell).Activate
End Sub

Sub btnprev(control As IRibbonControl)
    On Error Resume Next
    Cells.FindPrevious(After:=ActiveCell).Activate
End Sub