The Find expression is having issues with strings like ([ABC]). It's fine with strings like ([ABC]x), however. Change the Find expression to:
.Text = "\(\[[!\(\[]@\]*\)"
and the code should run to completion in less than 1 minute.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|