You can jump over the compound words causing the 5160 error by changing:
.Execute
to:

On Error Resume Next
.Execute
On Error GoTo 0

Limiting the code to Selections will take more work. It would have been nice if you'd said up front that's what you wanted to do.

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