Изменить цвет Range - не выходит

[suxo]

Помогите пожалуйста, уже всю башку отбил. отдельно работает, а при вызове - только наполовину.

Private Sub Oformit()
Dim ro As String:
Dim sost As String
   ro = ActiveCell.Row
   sost = "J" & ro

Sheets("rates").Range(sost).Interior.ColorIndex = 3
Sheets("rates").Range(sost).Value = "оформить"

End Sub

значение меняется а ЦВЕТ - нет. блин что не так то может быть? я уж вообще по всякому.

ДОПОЛНЕНИЕ

когда я запускаю эту процедуру отдельно - цвет меняется, но она вызывается у меня отсюда

If Target.Cells.Count > 1 Then Exit Sub
 If Not Application.Intersect(Range("i5:i777"), Target) Is Nothing Then
  
  If ActiveCell.Value = "надо" Then
  Run "Oformit()"
 End If
 
 End If

а когда делаю вот так, то все работает вновь.

If Target.Cells.Count > 1 Then Exit Sub
 If Not Application.Intersect(Range("i5:i777"), Target) Is Nothing Then
  
  If ActiveCell.Value = "надо" Then
    ro = ActiveCell.Row
    sost = "J" & ro
    Sheets("rates").Range(sost).Interior.ColorIndex = 3
    Sheets("rates").Range(sost).Value = "оформить"
  End If
 
 End If

[The_Prist]

А если сделать так:

Private Sub Oformit(rCell as range)
Dim sost As String
sost = "J" & rCell.Row
Sheets("rates").Range(sost).Interior.ColorIndex = 3
Sheets("rates").Range(sost).Value = "оформить"
End Sub

If Target.Cells.Count > 1 Then Exit Sub
 If Not Application.Intersect(Range("i5:i777"), Target) Is Nothing Then
  If ActiveCell.Value = "надо" Then'здесь может надо Target проверять?- If Target.Value = "надо" Then
  Call Oformit(ActiveCell)'Хотя я бы здесь передавал все же Target - Call Oformit(Target)
 End If

 End If

[suxo]

дело в том что процедура то вызывается, значение в ячейке то меняется, а вот цвет нет. вообще странно вобщем как то.

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

[IgorGO]

на ячейках нет, случайно, условного форматировния. Поменялось значение - Excel применил условный формат.
для начала просто переставьте процедуры местами, сначала изменить значение, потом цвет