Highlight Text

[Welsh Mark3]

I have a column of notes - lets say this is column A. I want to highlight just part of the the text. In this case it just "#addingvalue"

I can use the Conditional formatting function but to my knowledge it highlights the entire cell, I just want to highlight of change color of text just for the phase shown above.

 

[Fluff]

Are the values hard values, or the result of a formula?

 

[Welsh Mark3]

These are hard values

 

[Fluff]

In that case try

Sub WelshMark3()
   Dim Cl As Range
   Dim x As Long
   
   For Each Cl In Range("A2", Range("A" & Rows.Count).End(xlUp))
      x = InStr(1, Cl.Value, "#addingvalue", vbTextCompare)
      If x > 0 Then Cl.Characters(x, 12).Font.Color = vbRed
   Next Cl
End Sub

 

[Welsh Mark3]

re: Sub WelshMark3()

In the code what is the relevance of "WelshMark3", is this what the sheet or file name should be called?

 

[Fluff]

No it's just the name of the macro, you can change it to something more meaningful.

 

[Welsh Mark3]

No it's just the name of the macro, you can change it to something more meaningful.

That has worked thank you

 

[Fluff]

You're welcome & thanks for the feedback

 

[Welsh Mark3]

This has actually worked better than I expected, If i wanted to use this code and change the 'Phrase' for the same range Would I simply run as an additional macro? I think I've confident in amending the code.
Is it possible to run this on multiple phrase in one code? or an additional macro?
Changing the color of the font - Would I simply amend " If x > 0 Then Cl.Characters(x, 12).Font.Color = vbRed" to for example " If x > 0 Then Cl.Characters(x, 12).Font.Color = vbYellow"

 

[Fluff]

Changing the color of the font - Would I simply amend " If x > 0 Then Cl.Characters(x, 12).Font.Color = vbRed" to for example " If x > 0 Then Cl.Characters(x, 12).Font.Color = vbYellow"

Yes, that's right
As for the string, will you only have one of the strings in an individual cell or could you have more?