Изменить цвет в слове

[valerij]

Есть в столбце "С" некий перечень товара:
с3 Слива
с4 Слива УП
с5 Груша
с6 Груша УП
сх ххххххххххххх
с42 Яблоко
с43 Яблоко УП
Как макросом, найти в этом столбце "С" слово УП и поменять цвет(только слово УП) на жирный, красный?

Спасибо!
Вот модуль в котором есть это УП, его запускаю один раз и он должен менять цвет

[IgorGO]

Sub BoldRed()
  For r = 3 To 43
    p = InStr(Cells(r, 3), "УП")
    If p > 0 Then
      With Cells(r, 3).Characters(Start:=p, Length:=2).Font
        .FontStyle = "bold"
        .Color = -16776961
      End With
    End If
  Next
End Sub

Макрос пройдется по колонке С от строки 3 до 43. Первый "УП" в ячейке станет красным и жирным.

[valerij]

Сообщение от IgorGO

Макрос пройдется по колонке С от строки 3 до 43. Первый "УП" в ячейке станет красным и жирным.

Игорь, ни чего, все черным.

[EducatedFool]

Сообщение от valerij

Игорь, ни чего, все черным.

А ты проверял?

[IgorGO]

посмотри внимательно, когда скопировал процедуру в модуль там "УП" написано или что другое?

[valerij]

Сообщение от IgorGO

посмотри внимательно, когда скопировал процедуру в модуль там "УП" написано или что другое?

Ну конечно, вот так сделал "модуль5".
ИгорИ!!!
Нужно в моем модуле, а не в листах
Заменил модуль, ошибся, не тот вставил

[IgorGO]

Валера, смотри внимательно, в твоем случае надо .Cells использовать (смотри точка в начале) простое обращение к Cells - это обращение на активный лист, а ты с другим листом вроде работаешь, в конце концов, это же твоя программа я не моя. С моей стороны было всего-на-всего подсказка.
Успехов!

[valerij]

Сообщение от IgorGO

С моей стороны было всего-на-всего подсказка.

Да так, то так, код в листе, все ОК, а в модуле ?, он же один для 9 листов

[IgorGO]

то, что взято с моего примера - поставь точкИ перед Cells. ".Cells" и "Cells" понимаешь разницу. в некоторых случаях это будет обращение к одним и тем же ячейкам, а в некоторых нет...

[valerij]

Сообщение от IgorGO

то, что взято с моего примера - поставь точкИ перед Cells. ".Cells" и "Cells" понимаешь разницу. в некоторых случаях это будет обращение к одним и тем же ячейкам, а в некоторых нет...

Да ставил, Игорь ты посмотри на р=, оно не принимает же значение 3,4,5,6,......43 потому, что нет Resize(41) я его тулю, ошибка.

For iRow = 3 To 1623 Step 54
                With Sheets(iLL).Cells
                    .Cells(iRow, 3).Resize(41).Value = iPrices
                End With
                p = InStr(Cells(iRow, 3), "УП")
 "p = .InStr(Cells(iRow, 3), "УП").Resize(41).Value = iPrices
    If p > 0 Then
      With Cells(iRow, 3).Characters(Start:=p, Length:=2).Font
        	.FontStyle = "bold"
        	.Color = -16776961
      End With
    End If
Next