Sub ToMauSo1()
Dim Clls As Range, i As Long
For Each Clls In Application.InputBox("Chon vung", Type:=8)
i = InStr(Clls.Value, "1")
Tomau:
If i Then Clls.Characters(i, 1).Font.ColorIndex = 3
i = InStr(i + 1, Clls.Value, "1")
If i Then GoTo Tomau
Next Clls
End Sub