Sub TEST_02()
Dim i%, C%, U%, T$
For Each rg In [H1:H100]: With rg
For i = 1 To Len(.Value) + 1
T = Trim(Mid(.Value, i, 1))
If T = "+" Then U = i: C = 43
If T = "-" Then U = i: C = 3
If T = "" Then With .Characters(U, i - U).Font: .Size = 10: .ColorIndex = C: End With
Next i
End With: Next
End Sub