Changing the font colour of part of a cell.

[Sefty]

With VBA, if all the words to colour were single words, then this macro would do the job; elsewise, would all the cells begin with "Meeting" ?

Option Explicit
Sub ChangeCharacterColor()
    Dim sChar  As Integer
    Dim lChar  As Integer
    Dim x      As Long
    For x = 1 To Cells(Rows.Count, "A").End(xlUp).Row   'from row 1 to last used row
        sChar = InStrRev(Cells(x, "A"), " ") + 1  'find last space
        lChar = Len(Cells(x, "A")) - sChar + 1    'number of characters to end
        Cells(x, "A").Characters(start:=sChar, Length:=lChar).Font.Color = -16776961
    Next x
End Sub

Hello
Need to help, if I'm looking for something to automatically change the colour of part of the text in a cell. So for example: Cell A1 contains "01.01", "01.01" 5 character in front of the sentence, I want to change the colour of the word "01.01", "01.02", "01.03" to be in red. if I use the code like below, the result is like the picture doesn't match.

Sub ChangeCharacterColor()
Dim sChar As Integer
Dim lChar As Integer
Dim x As Long
For x = 1 To Cells(Rows.Count, "A").End(xlUp).Row 'from row 1 to last used row
sChar = InStrRev(Cells(x, "A"), " ") - 4 'find last space
lChar = Len(Cells(x, "A")) + sChar - 4 'number of characters to end
Cells(x, "A").Characters(Start:=sChar, Length:=lChar).Font.Color = -16776961
Next x
End Sub

Thank you...

 

[bebo021999]

to color first 5 characters in column A:

Sub ChangeCharacterColor()
Dim cell As Range
For Each cell In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    cell.Characters(1, 5).Font.Color = -16776961
Next
End Sub

 

[Sefty]

to color first 5 characters in column A:

Sub ChangeCharacterColor()
Dim cell As Range
For Each cell In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    cell.Characters(1, 5).Font.Color = -16776961
Next
End Sub

Thank you master, the code is success....