evidenziare parte di una frase

[raimea]

ciao

tramite macro , vorrei riuscire a evidenziare
PARTE di una frase contenuta in un unica cella.

in col. D da D8, a ultima riga,
vorrei Evidenziare in neretto la scritta: Risultato Esatto

vi allego il file

https://www.dropbox.com/scl/fi/4vlqrlh2uz44zsbw9c0q6/evidenziafrase.xlsm?dl=0&rlkey=cn1ghp91jyw40abvfxcfb5bo0

ciao

[Anthony47]

Ad esempio:

Codice: Seleziona tutto

Sub EsattoBold()
Dim rEs As Long, I As Long
'
Sheets("diario").Select
For I = 7 To Cells(Rows.Count, "D").End(xlUp).Row
    rEs = InStr(1, Cells(I, 4).Value, "Risultato esatto", vbTextCompare)
    Cells(I, 4).Font.Bold = False
    If rEs > 0 Then
        Cells(I, 4).Characters(Start:=rEs, Length:=16).Font.Bold = True
    End If
Next I
End Sub

[raimea]

ciao

tutto ok

grazie