Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 11/21/2017
Dim rngSpellError
For Each rngSpellError In Selection.Range.SpellingErrors
    rngSpellError.HighlightColorIndex = wdYellow
Next rngSpellError
lbl_Exit:
  Exit Sub
End Sub