Hi,

I have some code that searches for some text (the person who entered the comments name) in comments and removes it. This works fine thanks to help from people on here but the line below in each comment ends up bold. I was hoping someone can help with modify this sub so it first runs through each comment to find the text in question and format to normal/standard. Then it can go through the comments and remove the text without formatting any remaining text bold.

Originally the code did run through all comments after named were removed and formatted them to standard but some comments have bold text in which i need to remain bold. 

Sub ReplaceComments()
Dim cmt As Comment
Dim wks As Worksheet
Dim sFind As String
Dim sReplace As String
Dim sCmt As String
sFind = "A Name" & vbLf
sReplace = ""
For Each wks In ActiveWorkbook.Worksheets
For Each cmt In wks.Comments
sCmt = cmt.Text
If InStr(sCmt, sFind) <> 0 Then
sCmt = Application.WorksheetFunction. _
Substitute(sCmt, sFind, sReplace)
cmt.Text Text:=sCmt
End If
Next
Next
Set wks = Nothing
Set cmt = Nothing
End Sub
Thanks to all in advance