Apa
Bueno no se como tienes exactamente el código, pero si tienes dos botones (uno para buscar y otro para siguiente) puedes guardar en el primer botón la celda en la que aparece la primera coincidencia, en el segundo, es decir, el de siguiente, te mueves y compruebas si la celda a la que te has movido es la primera.
El código sería algo así (tendras que adaptarlo a tu proyecto):
Código:
Dim priC As Integer
Dim PriL As Integer
Private Sub CommandButton1_Click()
Cells.Find(What:="223", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
priC = ActiveCell.Column
PriL = ActiveCell.Row
End Sub
Private Sub CommandButton2_Click()
Cells.FindNext(After:=ActiveCell).Activate
If ActiveCell.Column = priC And ActiveCell.Row = PriL Then MsgBox "Estas en la primera celda"
End Sub
En la variable priC guardo la columna y en priL guardo la línea de la primera celda que encuentra.
En el segundo botón me nuevo a la siguiente coincidencia y comparo si es igual a la primera celda, si es así, muestro un mensaje indicándolo.
Agur.