Hi Michael,

That error suggests your PC isn't configured with English-language settings. In that case, you need to change:
.Text = "([^13]{2}[!^13]{1,})^13"
to:


.Text = "([^13]{2}[!^13]{1;})^13"
(note the ',' changed to ';')

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

Great! It works.

Thank you again. How can I indicates that problem is solved?
For your help and patience
Michael

See Thread Tools -> Mark this thread as solved

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