Hello. I believe the reason it was running so slow as I used Selection instead of a Word,Range. When I changed to this is was much quicker.
So for reference I changed the slow subroutine above to:
After which it ran much quicker. Having a few issues now that the Style assignment sometimes is ignored but at least I have solved the speed issue!
Thanks Roy for your time. Much appreciated.