Hi Andrew, thank you so much for the updated code, I've been running it on several documents and all seems to be working well - something I didn't think to add is for the code to skip table of contents. I couldn't find a wd reference for table of contents so I added .Characters.Last.Previous.InRange(ActiveDocument.T ablesOfContents(1).Range) = False Then, it seems to work but would you have used different code?

I would like to add a message box at the end to say 'Complete' - I tried to insert MsgBox = "Complete" but it just made the message box continually appear when I pressed ok like it was on a continuous loop.