Paul - that too was my first thought, but it didn't work for me either. However looking at it again, it seems to work if you add a line to the code



Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\Page")
Rng.Select
If Rng.HighlightColorIndex = wdNoHighlight Then Rng.Delete

Why that should be needed I am not sure, but it certainly changes the outcome.

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com