```
Sub ReplaceLetters()
Application.ScreenUpdating = False
Dim rng As Range, cnt As Long
For Each rng In Range("A2", Range("A" & Rows.Count).End(xlUp))
If rng Like "*h*" Or rng Like "*c*" Or rng Like "*d*" Or rng Like "*s*" Then
rng.Replace "h", ChrW(9829)
rng.Replace "d", ChrW(9830)
rng.Replace "c", ChrW(9827)
rng.Replace "s", ChrW(9824)
End If
Next rng
For Each rng In Range("A2", Range("A" & Rows.Count).End(xlUp))
For cnt = Len(rng) To 1 Step -1
Select Case AscW(Mid(rng, cnt, 1))
Case Is = 9829
Range("A" & rng.Row).Characters(cnt, 1).Font.ColorIndex = 3
Case Is = 9830
Range("A" & rng.Row).Characters(cnt, 1).Font.ColorIndex = 44
Case Is = 9827
Range("A" & rng.Row).Characters(cnt, 1).Font.ColorIndex = 4
Case Is = 9824
Range("A" & rng.Row).Characters(cnt, 1).Font.ColorIndex = 1
End Select
Next cnt
Next rng
Application.ScreenUpdating = True
End Sub
```