Conditional Format part of a text string

[lydytunes]

Have done some research on line and on the board but can't find what I'm looking for. From what I've read I'm going to need VBA to do this but haven't been able to figure it out. I have a column that is going to be populated with up to a 40 character text string. I'm wanting to see if there is a way to make bold / change font / or highlight the first 24 characters of that text string. The values in the column will be different for each cell but they will never be over 40 characters and I will always want to highlight the first 24.

Again, I think this has to be done through VBA but haven't been able to find anything specific.

 

[JoeMo]

Use your mouse to select the cells in your column with the text strings you want to modify, then run the code below. In this case the first 24 characters will be seen in bold, red font.

Sub First24()
'select the cells you want to modify first, then run this macro
Dim c As Range
Application.ScreenUpdating = False
For Each c In Selection
    If c.Value <> "" Then
        c.Value = Trim(c.Value)
        With c.Characters(1, 24).Font
            .Bold = True
            .Color = vbRed
        End With
    End If
Next c
Application.ScreenUpdating = True
End Sub

 

[Fluff]

This will change the font colour for the 1st 24 characters in col A

Sub Hilite()
Dim cl As Range
For Each cl In Range("A2", Range("A" & Rows.Count).End(xlUp))
   cl.Characters(1, 24).Font.Color = 4567
Next cl
End Sub

 

[lydytunes]

Joe and Fluff,

Thank you both for the quick response. I've tried them both and both worked. Glad I will have options depending on what my users want to do.

 

[Fluff]

Glad we could help & thanks for the feedback