The original code won't work with your document because of the repeated (a), (b), (c) and (i), (ii), (iii) etc. list level numbers. You'd need to use the updated code without the With .Range.Find ... End With block that does the highlighting.