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?