Dim rngCell As Excel.Range
Dim k As Long
For Each rngCell In rngData.Cells
For i = LBound(t) To UBound(t)
k = InStr(1, rngCell.Text, t(i).Replace, vbBinaryCompare)
While k > 0
rngCell.Characters(k, Len(t(i).Replace)).Font.Bold = True
k = InStr(k + Len(t(i).Replace), rngCell.Text, t(i).Replace, vbBinaryCompare)
Wend
Next
Next