Search Selection With Scroll Area Set

I have a spreadsheet form with a bunch of cells receiving and writing data via vba. On the form is a search box. The data is on the same sheet as the form to prevent flickering by activating another sheet. The problem is that I cannot select the search area and set the scrollarea or the "Find" quits after the first find:

if I have 2 jacks then it will find the first and not the second.

If I don't set the scrollarea of course it goes to the selected cell and moves the form out of the picture.

If I select a cell in the form area after the search, the "Find" is reset to the beginning and locates the same cell again.

Here is the code:

Code:

On Error GoTo DataNotFound
Cells.find(What:=txtFindText, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate

[Code]....