Buscar siguiente

Tengo este código que me busca un dato en una hoja de Excel, se posiciona en él y colorea la fila.
Sub buscar()
    Dim n As Range
    palabra_a_buscar = InputBox("Introduce la palabra a buscar", "Buscador")
    Set n = Cells.Find(What:=palabra_a_buscar)
    If n Is Nothing Then
        MsgBox "No he encontrado nada. Lo siento."
    Else
        Range(n.Address).Select
        Selection.EntireRow.Interior.ColorIndex = 36
'        MsgBox "Aquí tienes la palabra " & UCase(palabra_a_buscar) & "."
    End If
    Set n = Nothing
End Sub
Private Sub CommandButton1_Click()
buscar
End Sub
Pero quisiera ponerle al tex box otro botón para que me pasase al siguiente dato si esta repetido en la hoja.
¿Cómo se hace? Hay algún ejemplo