View Single Post
 
Old 06-07-2018, 11:40 AM
d4okeefe d4okeefe is offline Windows 10 Office 2016
Advanced Beginner
 
Join Date: Apr 2013
Posts: 77
d4okeefe is on a distinguished road
Default

Your question interested me, and I found an interesting solution here.

It's a bit more complicated than your code, but will work. All you need to do is change this line

Code:
Selection.Range.Case = wdTitleWord
to this
Code:
Selection.Range.HighlightColorIndex = wdYellow
Reply With Quote