
Sub test()
Dim rng As Range, temp As Range, ft%
Set temp = Range("C2")
For Each rng In Range("A2", Cells(Rows.Count, 1).End(3))
ft = InStr(rng, temp.Value)
If ft > 0 Then
With rng.Characters(ft, 1)
.Font.Name = temp.Font.Name
.Font.Color = temp.Font.Color
.Font.Bold = temp.Font.Bold
End With
End If
Next rng
End Sub