Try using:
If Not .Characters.Last.Text Like "[0-9A-Za-z]" Then .End = .End - 1
or, if you data include high-end ASCII characters:
If Not .Characters.Last.Text Like "[0-9A-Za-zĄ-’]" Then .End = .End - 1
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|