High Light Miss spell words in excel

[shrinivasmj]

hi

i need to word to be high light or underline for miss spelled words in excel need vb or macro

 

[Andrew Poulsom]

Try:

Sub Test()
    Dim C As Range
    Dim Words As Variant
    Dim i As Long
    For Each C In Intersect(ActiveSheet.UsedRange, ActiveSheet.Columns("D")).Cells
        Words = Split(C.Value, " ")
        For i = LBound(Words) To UBound(Words)
            If Not Application.CheckSpelling(Word:=Words(i)) Then
                C.Characters(Start:=InStr(1, C.Value, Words(i)), Length:=Len(Words(i))).Font.ColorIndex = 3
            End If
        Next i
    Next C
End Sub

 

[shrinivasmj]

Need to trim D Column high light miss spelled words form Dictionary only in red bold

Try:

Sub Test()
    Dim C As Range
    Dim Words As Variant
    Dim i As Long
    For Each C In Intersect(ActiveSheet.UsedRange, ActiveSheet.Columns("D")).Cells
        Words = Split(C.Value, " ")
        For i = LBound(Words) To UBound(Words)
            If Not Application.CheckSpelling(Word:=Words(i)) Then
                C.Characters(Start:=InStr(1, C.Value, Words(i)), Length:=Len(Words(i))).Font.ColorIndex = 3
            End If
        Next i
    Next C
End Sub

 

[Andrew Poulsom]

Why don't you give all your requirements at the outset? Please post some sample data and the expected results.

 

[shrinivasmj]

Need to hight light only dictionery words to below code

Sub Test()
Dim C As Range
Dim Words As Variant
Dim i As Long
For Each C In Intersect(ActiveSheet.UsedRange, ActiveSheet.Columns("D")).Cells
Words = Split(C.Value, " ")
For i = LBound(Words) To UBound(Words)
If Not Application.CheckSpelling(Word:=Words(i)) Then
C.Characters(Start:=InStr(1, C.Value, Words(i)), Length:=Len(Words(i))).Font.ColorIndex = 3
End If
Next i
Next C
End Sub

 

[Andrew Poulsom]

In what way doesn't that code do as you want? Post some examples.