Hi i feel that the above works well but i wanted to share expand as ou might [LIKE JACK DOES] have a few to highlight
Try this the trick is to have the array to say teh selections ie
Names are you text to search and colour
Colour - erm does taht to that colour, i chose to have lower down on same sheet so i can edit easy, this is one of my MUST HAVES and in all my wok, i just add what i need,
Attach to any command button shold work OK!!
Dedicated to a friend, whos support towards me is second to no one, hes / shes top! and will know who they are when they read this post!! top bombing as we say in london.
Option Explicit
Option Base 1
Sub Jack_Colour_TExt()
Dim Target As Range
Dim JackintheUK_Names As Variant
Dim Colours As Variant
Dim x As Integer
Dim y As Integer
Dim z As Integer
Set Target = Selection
JackintheUK_Names = Array([C200], [C201], [C202], [C203], [C204], [C205], [C206], [C207], [C208], [C209], [C210], [C211], [C212])
Colours = Array([E200], [E201], [E202], [E203], [E204], [E205], [E206], [E207], [E208], [E209], [E210], [E211], [E212])
For x = 1 To UBound(Names)
For z = 1 To Target.Cells.Count
y = InStr(1, Target.Cells(z).Value, Names(x))
If y > 0 Then
With Target.Characters(Start:=y, Length:=Len(Names(x)))
.Font
.ColorIndex = Colours(x)
.FontStyle = "Bold"
End With
End If
Next z
Next x
End Sub