Hola amado "Populus romanae":

"Vos" dejo una pequeña macro para resaltar parte del texto de una celda.

Antes de que lo pregunteis, deciros que no se puede poner color de relleno.

[SIZE=2][FONT=courier new][COLOR=#000080]Sub ResaltarParteDeUnaCelda()


Range("A1").Select

cadena1 = "Esto es una prueba "

cadena2 = "[/COLOR][B][SIZE=3][COLOR=#ff0000]de poner mas tamaño, resalte y color [/COLOR][/SIZE][/B][COLOR=#000080]"

cadena3 = "de una cadena de texto entre otras dos. "


inicio = Len(cadena1) + 1

longitud = Len(cadena2)


ActiveCell = cadena1 & cadena2 & cadena3

inicio = Len(cadena1) + 1

longitud = Len(cadena2)


With ActiveCell.Characters(Start:=inicio, Length:=longitud).Font

    .Name = "Calibri"

    .FontStyle = "Negrita"

    .Size = 12

    .Color = vbRed

[/COLOR][/FONT][/SIZE][COLOR=#000080][FONT=courier new]End With[/FONT][/COLOR][SIZE=2][FONT=courier new][COLOR=#000080]

End Sub[/COLOR][/FONT][/SIZE][/CODE]

[color=#ff0000][b][size=3]SPQR[/size][/b][/color]

Igual lo uso para la próxima versión de mi https://www.ayudaexcel.com/foro/ideas-aportes-64/prototipo-lector-libros-excel-28855/ cuando le añada marcadores, si algún día lo continuo.

Este plebeyo te da las gracias por tus aportes, magnánimo Macro Antonio, ¡ten misericordia del populacho cuando luchemos en la arena!

Otra opcion:

Sub ColorBold()

Dim n As Long

With Worksheets("Hoja1").Cells(1, 1)

    n = InStr(1, .Value, "sisi", 1)

    Do While n

        .Characters(Start:=n, Length:=Len("sisi")).Font.ColorIndex = 3

        .Characters(Start:=n, Length:=Len("sisi")).Font.Bold = True

        n = InStr(n + 1, .Value, "sisi", 1)

    Loop

End With

End Sub

[/CODE]