I would like to show the find inputbox with my settings then be able to do find next find all or what ever (be able to work with the find inputbox ) but dont know how to end the macro so the find input box is still open, also to have the "what" value be a param

Selection.Find(What:=[], After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate