Need a macro that would find Sub in the below example, highlight the rest of line (it can include the word Sub) and then
change the style to Heading 2. It need it to run until it reaches the end of the document.
Dim fd As FileDialog
Dim rng As Range
Dim ilsh As InlineShape