Format a part of a text working with only value not working with formula result

hi,
i am using below code to format change text color to a particular part of a text, but this code is working with only value (not formula's result0
i want to apply this code to formula result

thank you

Sub Format_Characters_In_Found_CellASW22()
    Dim Found As Range, x As String, FoundFirst As Range, m As Object
    With CreateObject("VBScript.RegExp")
        .Pattern = "(B{2,3}|N) PT"
        Set Found = Range("H8:H300").Find(What:=" PT", LookIn:=xlValues, LookAt:=xlPart)
        If Not Found Is Nothing Then
            Set FoundFirst = Found
            Do
                For Each m In .Execute(Found.Value)
                    With Found.Characters(m.firstindex + 1).Font
                        .ColorIndex = 7
                        .Bold = True
                    End With
                Next
                Set Found = Range("H8:H300").FindNext(Found)
            Loop Until FoundFirst.Address = Found.Address
        Else
            'MsgBox x & " could not be found.", , " "
        End If
    End With
End Sub

Hi,

It is not possible to change the colour of part of a formula's result. You would have to replace the formula with its value and then use the code you already have.