Sub RedNumber1()
Const iCond = 550 'значение для сравнения чисел из ячейки
Dim iCl As Range
Dim iTmp, iKey, N&
On Error Resume Next
Application.ScreenUpdating = False
For Each iCl In Selection 'обрабатываем выделенный диапазон
  iCl.Font.ColorIndex = xlAutomatic
  iCl = iCl.Text  'в этой строке формула меняется на значение и дальше уже обрабатывается
  iTmp = Split(iCl, ";")
  For Each iKey In iTmp
    iKey = Replace(Trim(iKey), " ", "")
    If iKey <> "" Then
      If CDbl(Trim(iKey)) > iCond Then
        N = InStr(1, iCl.Text, Trim(iKey), vbTextCompare)
        iCl.Characters(N, Len(Trim(iKey))).Font.Color = vbRed
      End If
    End If
  Next
Next
Application.ScreenUpdating = True
End Sub

Sub RedNumber()
Const iCond = 550 'значение для сравнения чисел из ячейки
Dim iCl As Range
Dim iTmp, iKey, N&
On Error Resume Next
Application.ScreenUpdating = False
For Each iCl In Selection 'обрабатываем выделенный диапазон
  iCl.Font.ColorIndex = xlAutomatic
  iTmp = Split(iCl, ";")
  For Each iKey In iTmp
    iKey = Replace(Trim(iKey), " ", "")
    If iKey <> "" Then
      If CDbl(Trim(iKey)) > iCond Then
        N = InStr(1, iCl.Text, Trim(iKey), vbTextCompare)
        iCl.Characters(N, Len(Trim(iKey))).Font.Color = vbRed
      End If
    End If
  Next
Next
Application.ScreenUpdating = True
End Sub

let
    Источник = Folder.Files(Excel.CurrentWorkbook(){[Name="FolderPath"]}[Content]{0}[Путь к папке]),
    #"Строки с примененным фильтром" = Table.SelectRows(Источник, each ([Name] = "нлк1.xlsx" or [Name] = "нлк2.xlsx")),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Строки с примененным фильтром", "Сводные данные", each Excel.Workbook([Content])),
    #"Развернутый элемент Сводные данные" = Table.ExpandTableColumn(#"Добавлен пользовательский объект", "Сводные данные", {"Name", "Data", "Item", "Kind", "Hidden"}, {"Name.1", "Data", "Item", "Kind", "Hidden"}),
    #"Строки с примененным фильтром1" = Table.SelectRows(#"Развернутый элемент Сводные данные", each ([Name.1] = "Лист1")),
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Строки с примененным фильтром1",{"Data"}),
    #"Развернутый элемент Data" = Table.ExpandTableColumn(#"Другие удаленные столбцы", "Data", {"Column1", "Column2", "Column3", "Column4", "Column5", "Column6", "Column7", "Column8", "Column9", "Column10", "Column11", "Column12"}, {"Column1", "Column2", "Column3", "Column4", "Column5", "Column6", "Column7", "Column8", "Column9", "Column10", "Column11", "Column12"}),
    #"Повышенные заголовки" = Table.PromoteHeaders(#"Развернутый элемент Data", [PromoteAllScalars=true]),
    #"Измененный тип" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"дней", type any}, {"Юр лицо", type text}, {"Отдел", type text}, {"Код товара", type any}, {"Товар", type text}, {"Производитель", type text}, {"Вид товара", type text}, {"Потребительская категория", type any}, {"МНН", type any}, {"Остатки Кол-во", type any}, {"Остатки Сумма розн", type any}, {"Ваш заказ", type text}}),
    #"Строки с примененным фильтром2" = Table.SelectRows(#"Измененный тип", each ([дней] <> "дней")),
    #"Другие удаленные столбцы1" = Table.SelectColumns(#"Строки с примененным фильтром2",{"дней", "Код товара", "Товар"}),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Другие удаленные столбцы1",{{"Код товара", type text}}),
    #"Добавлен пользовательский объект1" = Table.AddColumn(#"Измененный тип1", "КОДЫ ИТОГ", each "[КОД ТОВАРА] = "&[Код товара]&"ИЛИ")
in
    #"Добавлен пользовательский объект1"

Dim clTarget As Range

Private Sub ComboBox1_Change()
  clTarget = Me.ComboBox1.Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iRng As Range
Set iRng = Me.Range("A1:A10") 'диапазон(ячейка) связанный с ComboBox
If Not Intersect(Target, iRng) Is Nothing And Target.Count = 1 Then
  Dim arr()
  arr = Worksheets("база").ListObjects("выбор").DataBodyRange.Value
  With Me.ComboBox1
    .List = arr
    .ListRows = UBound(arr, 1)
    .Top = Target.Top
    .Left = Target.Offset(, 1).Left
    .Visible = True
  End With
  Set clTarget = Target
Else
  Me.ComboBox1.Visible = False
End If
End Sub