In the Selection.Find object in your macro, set .Forward = False and .Wrap =
wdFindStop. To search down instead, use .Forward = True.
If the selection might be extended (more than one character) when the macro
starts, you might want to insert the statement
Selection.Collapse wdCollapseEnd
before starting the search.