Maybe something like this in a module, then assign to the button.
Dim LastCell As Range
Sub FindIT()
Dim f As Range
Dim rngSearch As Range
With ActiveSheet
Set rngSearch = .Range("F10:F2000")
If LastCell Is Nothing Then Set LastCell = rngSearch.Cells(rngSearch.Rows.Count, rngSearch.Columns.Count)
With rngSearch
Set f = .Find(what:="*", after:=LastCell, lookat:=xlPart)
If Not f Is Nothing Then
Set LastCell = f
f.Activate
If Intersect(ActiveWindow.VisibleRange, f) Is Nothing Then
ActiveWindow.ScrollRow = f.Row
End If
End If
End With
End With
End Sub
Bookmarks