RE: a
I'd limit the number of entries on each line to what you can see without scrolling in the VBA editor, perhaps even somewhat less than that. You can simply keep adding more:
vFindText = vFindText & ",Name1,Name2"
lines as needed, before the:
vFindText = Split(vFindText, ",")
line.

RE: b
You don't need the space, as your Find/Replace code already has '.MatchWholeWord = True'. Note that you can already use multi-word expressions, such as 'New Zealand'. The only restriction is that they can't use a comma; otherwise you'll need a different separator character.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]