Search Box Embedded into Worksheet or VBA for Find and Replace

[epaprhasguy80]

There are a MILLION close variations on this question, but I cannot find an EXACT solution. I need a way for my end user to type a word into a search box embedded into my worksheet. Then, I want excel to find each occurrence of that word, one at a time, searching only the active worksheet. Each time the end user clicks "search", the next occurrence is found. I am describing an EXACT MIRROR of the Control+F functionality.

I DO NOT WANT:

• Each occurrence to be highlighted or copied, and pasted elsewhere. I simply want the cell to be activated so that my end-user sees it.

• The search command to search other sheets in the workbook. ONLY the current sheet.

As an alternative, I tied the Find Function to a "Search" button that I created using the following VBA Code

Sub OpenFindBox()
 Application.Dialogs(xlDialogFormulaFind).Show
 End Sub

The problem is that the find function does not terminate with the current worksheet. It continues searching the entire book. The option to search only the current worksheet is not present when the "find" dialogue opens. HOWEVER, when I press CONTROL + F, I get the "Find & Replace" dialogue which allows me to click "Options" and limit my search to "Within Sheet" or "Within Workbook" . GRRRRRR>

There MUST be a super simple solution that I am not seeing. Please help!!!