Ayuda con código VBA: en Excel, ¿cómo mostrar en negrita un texto específico (como el diseño) en lotes y convertirlo en fuente roja?

Sub negrita y rojo ()

Dim j, i como entero

Para j = 1 a ActiveSheet.UsedRange.Count

Cells.Find(What:="Design", After:=ActiveCell).Activate

i = WorksheetFunction.Find("Design", ActiveCell)

With ActiveCell.Characters( Inicio :=i, Longitud:=2).Font

.Name = "宋体"

.FontStyle = "Normal"

.FontStyle = "Agregar grueso "

.Color = -16776961

Terminar con

Siguiente

Fin Sub