Hello,

I have entries within each cell on column 'D' in the format of;
[SUMMARY]: This is where the summary goes, can vary in number of characters
[U] 'date': This is where I add an update, can vary in number of characters
(NB: I use <ALT&shift> between the first and second lines)

I already have the following VBA that runs on the Worksheet;
    Application.ScreenUpdating = False
    Sheets(“Sheet1”).Select
    Range("Table_One").Select
    ActiveWorkbook.Worksheets(“Sheet1”).ListObjects("Table_One").Sort.SortFields. _
        Clear
    On Error Resume Next
        ActiveSheet.ShowAllData
    On Error GoTo 0
    ActiveWorkbook.Worksheets(“Sheet1”).ListObjects("Table_One").Sort _
        .SortFields.Clear
    ActiveWorkbook.Worksheets(“Sheet1”).ListObjects("Table_One").Sort _
        .SortFields.Add Key:=Range("Table_One[Status" & Chr(10) & "Sort]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets(“Sheet1”).ListObjects("Table_One").Sort _
        .SortFields.Add Key:=Range("Table_One[Review" & Chr(10) & "Priority]"), SortOn:=xlSortOnValues, _
        Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets(“Sheet1”).ListObjects("Table_One").Sort _
        .SortFields.Add Key:=Range("Table_One[Team]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, CustomOrder:="Required,Not Required", DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets(“Sheet1”).ListObjects("Table_One").Sort _
        .SortFields.Add Key:=Range("Table_One[Call" & Chr(10) & "Reference]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(“Sheet1”).ListObjects("Table_One") _
        .Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 9
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
        .Italic = False
    End With
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayGridlines = False
    Columns("A:N").EntireColumn.AutoFit
    Columns("A").EntireColumn.Hidden = True
    Rows.EntireRow.AutoFit
    Application.ScreenUpdating = True
    Range("E2").Select
End Sub
I want to search for the string "[SUMMARY]:" and set the font colour for that specific string to Red and then search for the string "[U]:" and set the font colour for that specific string to green.

Is there code that I can add to the above code that will do that.?


Thank you.