Change format of single word in cell

Z

Zenon

Hi,

I need to search and highlight (using bold, change color or whatever
single words in Excel using VBA. With find method, I can find them, bu
when using the replace method, always the complete cell, in which th
word has been found, will be highlight.

Any idea??

Thanks and regards,
Zeno
 
B

Bernie Deitrick

Zenon,

You need to use the characters method once you've found the word:

Dim myStr As String
ActiveCell.Value = "This word is bold and red."
myStr = "word"
With ActiveCell.Characters(Start:=InStr(1, ActiveCell.Value, myStr), _
Length:=Len(myStr)).Font
.FontStyle = "Bold"
.ColorIndex = 3
End With

As for integrating this into your code, we would need to see your code to do
that....

HTH,
Bernie
MS Excel MVP
 
Top