Macro to highlight misspelled words



Highlight cells containing misspelled words in Cyan color


Sub SpellCheck()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If Not Application.CheckSpelling(Word:=cell.Text) _
Then cell.Interior.ColorIndex = 8
Next
End Sub

How to use codes shared here?