Macro seems to make entire text string in cells Bold

Hi everyone,

I have the following code:

Sub RepLetters()
Range("I1:Z100").Replace "A-", ""
Range("I1:Z100").Replace "B-", ""
Range("I1:Z100").Replace "C-", ""
Range("I1:Z100").Replace "D-", ""
Range("I1:Z100").Replace "E-", ""
Range("I1:Z100").Replace "•", ""
Range("I1:Z100").Replace "-", ""
Range("I1:Z100").Replace "A)", ""
Range("I1:Z100").Replace "B)", ""
Range("I1:Z100").Replace "C)", ""
Range("I1:Z100").Replace "D)", ""
Range("I1:Z100").Replace "E)", ""
Range("I1:Z100").Replace "1.", ""
Range("I1:Z100").Replace "2.", ""
Range("I1:Z100").Replace "3.", ""
Range("I1:Z100").Replace "4.", ""
Range("I1:Z100").Replace "5.", ""
End Sub

Pretty simple. However, whenever I run the code, if there's even on word that is bold in the cell, then the entire text string in the cell turns bold. How can I stop this from happening? i want to keep the format of the text string the same, only remove and replace the items listed in the code.

Thanks!

Sorry... you can bold the entire cell or nothing..
but you can't only a single character of it separately..

however, you can try following..

RepLetters()
x=array("A-","B-","C-","D-","E-","•","-","A)","B)","C)","D)","E)","1.","2.","3.","4.","5.")
with Range("I1:Z100")
for each word in x
.replace(word,"")
next
end with

Don't forget to click *

I'm getting an error on the .replace(word,"") line. Saying it expected a =

Hi Vikas,

Thanks for getting back to me. The text in the cell right now already has some words bolded while others are not. What I'm trying to do is keep that specific format from changing. i will try your code. Thanks!

Okay then try this..
these were the braces which are posing problem...

RepLetters()
x=array("A-","B-","C-","D-","E-","•","-","A)","B)","C)","D)","E)","1.","2.","3.","4.","5.")
with Range("I1:Z100")
for each word in x
.replace word.value,""
next
end with

Don't forget to click *