I would start by looking at the .Wrap = wdFindStop
This would be telling the code to stop when it gets to the end of the document. At the end of the first pass, your selection object would be near the end so if there are no second pass entries between it and the end of the document then nothing will be found.

You could change it to wdFindContinue or reset the selection to the top of the document at the start of each loop.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia