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
Bookmarks