VBA Script for highlighting cells with misspelled words

Copy the following code into the VBA Environment in Excel:

Sub HighlightMisspelledCells()

' This script will highlight the cells that have misspelled words
Dim cl As Range
    For Each cl In ActiveSheet.UsedRange
         If Not Application.CheckSpelling(word:=cl.Text) Then
         cl.Interior.Color = vbRed
    End If
Next cl

End Sub

Last updated on Jul 6, 2025