How To Highlight Misspell Word In A Cell Distinctly

I use the below code to check for cells that contain a misspell word in it, and highlight the cell in a different font color. I would like to tweak this a little further to highlight only the misspell word and not all the words in the cell. I've been trying a combo of Characters, InStr, and so on, but in vain.

Code:

Sub misspelt()

' Tackling misspellings

Dim i, j As Long
i = ActiveSheet.Range("C2").End(xlDown).Row
For j = 2 To i
If Application.CheckSpelling(Word:=Cells(j, 3).Value) = False Then
Cells(j, 3).Font.Color = 255

End If
Next j
End Sub