Hi

I have a problem with the FindNext function. The find is working fine,
but FindNext return nothing. Here's my code:

Set FindRes = Cells.Find(What:="0005", LookIn:=xlValues)
If Not FindRes Is Nothing Then
FirstAddress = FindRes.Address
Do
Set FindRes = Cells.FindNext(After:=FindRes)
Loop While Not FindRes Is Nothing And FindRes.Address <
FirstAddress
End If

My function is call by a formula, If I move my code in a macro that I
call by the menu, everything goes fine.

Does soneone have an idea what shoul I do to have my code working? I've
tried with other parameters in the find call with no chance

Thanks

Luc