How to make word that is not in dictionary to be UNDERLINED?

[London12F]

The following VBA can change word that is not in dictionary to RED:

[COLOR=#333333]Sub zz()
[/COLOR]<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit; line-height: 12px;">Dim ws As Worksheet, rng As Range, s$, w$
Set ws = ActiveSheet
    For Each rng In ws.UsedRange
        If rng.HasFormula Then GoSub Nextrng:
        If Application.CheckSpelling(rng.Value) Then GoTo Nextrng:
        s = " " & rng.Value
        i = 2
        While i < Len(s)
            If Mid(s, i - 1, 1) = " " And Mid(s, i, 1) <> "" Then
                j = InStr(i, s, " ") - 1
                If j = -1 Then j = Len(s)
                w = Mid(s, i, j - i + 1)
                If Not Application.CheckSpelling(w) Then
                    rng.Characters(Start:=i - 1, Length:=j - i + 1).Font.Color = vbRed
                End If
                i = j + 1
            End If
            i = i + 1
        Wend
Nextrng:
    Next rng 
</code>[COLOR=#333333]End Sub[/COLOR]

[TABLE="width: 539"]
<tbody>[TR]
[TD="width: 539"]How to revise so that the word that is not in dictionary to be UNDERLINED?[/TD]
[/TR]
</tbody>[/TABLE]

 

[Marcelo Branco]

Try

rng.Font.Underline = xlUnderlineStyleSingle

M.

 

[Marcelo Branco]

oops...correction

rng.Characters(Start:=i - 1, Length:=j - i + 1).Font.Underline = xlUnderlineStyleSingle

M.

 

[London12F]

Thanks Marcelo Branco, it's work.

 

[Marcelo Branco]

You are welcome. Thanks for the feedback.

M.

 

[RoryA]

@London12F

You've been told before about cross-posting. Kindly comply with the rules in future or your posting privileges may be revoked. Thank you.

 

[London12F]

RoryA ,
Sorry for cross-posting.

 

[RoryA]

Cross posting is not a problem, but you must provide links to your cross posts please.

 

[London12F]

Noted.