Private Sub CommandButton1_Click() Dim val As String val = Cells(5, "G").Value Dim fast As Boolean fast = True Dim last As Boolean last = False Dim values As String values = "" Dim lent As Integer lent = Len(val) Dim result As String result = "" For i = 1 To lent If Cells(5, "G").Characters(Start:=i, Length:=1).Font.Color = vbRed Then If fast Then values = "<span style='color:#dd0062;'>" & "" & Mid(val, i, 1) fast = False last = True Else last = True values = values & "" & Mid(val, i, 1) End If