Hi Peter,

In that case, I doubt you have anything selected. You can prevent the error by adding:
If Len(Rng.Text) = 0 Then Exit Sub
after:
Set Rng = Selection.Range

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