June 26, 2018

Highlight Misspelling and Correct Automatically

How to highlight misspelled words and correct them automatically in Excel with VBA. Whenever we enter data into a worksheet we are bound to make spelling mistakes. How can we highlight such bad spellings and correct them? We always have the option to use the spell-checker manually. But automating the correction of the misspelled words makes our life easier. Watch the video:

Watch this video on YouTube.

Here’s the complete VBA code to automatically correct spelling errors in an Excel worksheet:

Sub highlightBadSpellings()
Dim rng As Range

For Each rng In ActiveSheet.UsedRange
If Not Application.checkSpelling(word:=rng.Text) Then
rng.Style = “Bad”
End If

Next rng

End Sub

Sub checkSpellings()
Sheet1.Cells.checkSpelling SpellLang:=1033
End Sub

Sub removeHighlighting()
Dim rng As Range

For Each rng In ActiveSheet.UsedRange
If Application.checkSpelling(word:=rng.Text) Then
rng.Style = “Normal”
End If

Next rng

End Sub

Further Reading

VBA-Check Spelling