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]