Color Part of a Text in a Cell Without Using VBA

[DrDebit]

Is there a way to color a word every time it appears in a cell...just the word?

For example, the word is "and." If the words: Andy, candy, fandom, were in separate cells, they would appear as Andy, candy, and fandom. Instead of bolding those letters, they would be colored red. Is there a way to do this without using VBA?

Thank you!

 

[Peter_SSs]

Is there a way to do this without using VBA?

Yes, but only by manually selecting the relevant characters and formatting them red yourself.

 

[DrDebit]

Thank you...how about with VBA?

 

[Peter_SSs]

.how about with VBA?

Suppose you want to check all cells in column A ..
(Test with a copy of your data)

Sub ColourLetters()
  Dim c As Range
  Dim s As String
  Dim pos As Long, Lngth As Long
  
  Const myLetters As String = "and"
  
  Lngth = Len(myLetters)
  For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
    s = c.Text
    Do
      pos = InStr(pos + 1, s, myLetters, vbTextCompare)
      If pos > 0 Then c.Characters(pos, Lngth).Font.Color = vbRed
    Loop Until pos = 0
  Next c
End Sub

 

[DrDebit]

This is great. How did you become so proficient at VBA?

Thank you!

 

[Peter_SSs]

This is great. How did you become so proficient at VBA?

Thank you!

You're welcome. Glad it worked for you.

Hanging around this forum too much and lots of (often failed) practice.

 

[DrDebit]

Again...many thanks.

David