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

 

[shrinivasmj]

hi need to only check d row ,i have a formula were its need to modify ,need to trim and check only d row

Dim C As Range
For Each C In Worksheets("Sheet1").UsedRange
If Not Application.CheckSpelling(Word:=C.Text) Then _
C.Interior.Color = vbYellow
Next C
End Sub

 

[Andrew Poulsom]

Do you mean?

For Each C In Intersect(Worksheets("Sheet1").UsedRange, Worksheets("Sheet1").Columns("D")).Cells

 

[shrinivasmj]

hi

need to trim and check spelling for only d column

this formula need to modify its check all sheet

Dim C As Range
For Each C In Worksheets("Sheet1").UsedRange
If Not Application.CheckSpelling(Word:=C.Text) Then _
C.Interior.Color = vbYellow
Next C
End Sub

 

[Andrew Poulsom]

Did you try what I suggested?

 

[shrinivasmj]

Did you try what I suggested?

Please add the code in old vb not able to modify

 

[Andrew Poulsom]

Dim C As Range
For Each C In Intersect(Worksheets("Sheet1").UsedRange, Worksheets("Sheet1").Columns("D")).Cells
    If Not Application.CheckSpelling(Word:=C.Text) Then _
        C.Interior.Color = vbYellow
Next C

 

[shrinivasmj]

hi its working but only for sheet 1 need to work on any sheet.

 

[Andrew Poulsom]

That's also true for your original code. If you want it to work on the active sheet change Worksheets("Sheet1") to ActiveSheet.

 

[shrinivasmj]

please add in formula cant modify

and need only high light the text in red as its high light the complete cell