После применения фукции .Replace вся ячейка в которой происходит замена приобретает формат самого первого символа в этой ячейки.    
Написал коротенький макрос, который выделяет замещенный текст жирным шрифтом, однако понимаю что это слабое решение. У кого-нибудь есть идеи как можно по другому обойти "эту фичу" функции .Replace?  
 
Sub Replace2(WhatFind As String, Replace As String)  
 
Dim Finded As Range  
Dim temp As Integer  
 
Set Finded = Cells.Find(what:=WhatFind, lookat:=xlPart)  
If Finded Is Nothing Then Exit Sub  
 
temp = InStr(1, Finded, WhatFind) - 1  
With Finded  
   Finded.Value = Left(Finded, temp) + Replace + Right(Finded, Len(Finded) - temp - Len(WhatFind))  
   Finded.Characters(Start:=temp, Length:=Len(Replace) + 1).Font.FontStyle = "Bold"  
End With  
 
End Sub