Hi Bertie,
See:
http://social.technet.microsoft.com/...9-316f76abbe13
This thread has an extensive discussion with a number of macros to create a list of such terms, where the terms to be searched for are in double quotes. Perhaps something along those lines will meet your needs.
FWIW, with your present method you could use a
wildcard Find for your search, where:
Find = <[A-Z][A-Za-z]@>
This will find all words of two or more letters beginning with a capital, including wholly-capitalized words.