Hi, RobiNew! It's quite simple:
replace:
Para.range.Characters.Last.InsertBefore " "
with:
Para.range.Characters.Last.Previous.Delete

But this method deletes any (not anly space!) before the para sign and it is not the fastest one. To delete only spaces, the following condition should be included, which also will make the code a millisecond slower:
If Para.range.Characters.Last.Previous = " " Then
Para.range.Characters.Last.Previous.Delete
End If


RobiNew, I really can't understand why the code from post 9 doesn't work for you! I have retested it this morning again - and no problem! I'm eager to see your footnote!