![](https://xlncad.com/wp-content/uploads/2020/10/SpellCheck_Macro.gif)
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
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