А как это сделать, можете помочь.
И если можно покажите проблему.

Добрый день, помогите доработать макрос. Выдает ошибку, в чем проблема не могу понять.

Добрый день подскажите, а как изменить код, чтобы заменяемый текст был  "жирным" и дата нет.

Все работает.
Огромное спасибо.

Добрый день, помогите доработать макрос.
Данный макрос, меняет вводимый текст в ячейки на текст который записан в макросе автоматически после ввода.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim fndList As Variant
  Dim rplcList As Variant
  Dim x As Long
  fndList = Array("FHH", "FGA", "+")
  rplcList = Array("FST", "FPT", "проверено")
  'Loop through each item in Array lists
  For x = LBound(fndList) To UBound(fndList)
        Target.Replace What:=fndList(x), Replacement:=rplcList(x), _
          LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
          SearchFormat:=False, ReplaceFormat:=False
  Next x
End Sub

А как сделать чтобы помимо замены на  требуемое значения еще добавлял и текущую дату в ячейку.
типа : "FST - 22.03.2026г.", "FPT - 22.03.2026г.", "проверено - 22.03.2026г."

А также чтобы этот макрос действовал не на весь файл а только на определенный диапазон.