Выделение части строки полижирным шрифтом

[ratibor]

Есть код:

Option Compare Text
Sub ChangeFormatting()

Application.ScreenUpdating = False

Dim iCell As Range
With ThisWorkbook.Worksheets("Лист4").Us edRange
For Each iText In Array("за счет следующих предприятий:", " • ", "т.р. -")
Set iCell = .Find _
(What:=iText, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
If Not iCell Is Nothing Then
iAddress$ = iCell.Address
Do
If Not iCell.HasFormula Then
iPosition% = IIf _
(iText = "за счет следующих предприятий:", 1, InStr(iCell.Value, iText))
Do
With iCell.Characters _
(Start:=iPosition, Length:=Len(iText))
.Font.Bold = True
End With
iPosition% = InStr(iPosition% + 1, iCell.Value, iText)
Loop While iPosition% <> 0
End If
Set iCell = .FindNext(After:=iCell)
Loop While iCell.Address <> iAddress$
End If
Next
End With

Application.ScreenUpdating = True

End Sub

Подскажите как изменить код, чтобы выделял часть строки полужирным шрифтом, начинающейся с " • " и заканчивающейся "т.р. -".

[ratibor]

Приложил файл как должно быть.

[EducatedFool]

Код ваш править намного удобнее, если есть файл Excel с нужными данными.
Нет файла для тестирования = нет желающих ковыряться в коде.

PS: Перебивать в книгу Excel текст с прикреплённой картинки нет ни малейшего желания.

[ratibor]

Вложил файл Эксель.

[ratibor]

Есть идеи?

[kuklp]

Легче свое написать, чем чужое править...

[ratibor]

kuklp Огромное человеческое тебе спасибо!!!

все понял. кроме вот этого кусочка:

Length:=InStr(iCell.Value, a(0)) + Len(a(0))

поясни пожалуйста

[ratibor]

все "догнал".

Еще раз огромное спасибо kuklp и С Наступающим Новым Годом!!!