Здравствуйте. Помогите мне, пожалуйста, изменить существующий макрос, который заменяет формулы на значения в выделенных ячейках, чтобы он еще в этих выделенных ячейках учитывал и цвет заливки - если заливка соответствует условию, то заменял формулу на значение, а если не соответствует - то формулу не заменял. Условие заливки: без заливки (т.е. -4142). Второй день пытаюсь сам изменить, но никак не получатся.

Sub All_Formulas_To_Values_OnlyVisible()
   Dim rRng As Range, rArea As Range
   If Selection.Count = 1 Then
       Set rRng = ActiveCell
       Else
       Set rRng = Selection.SpecialCells(12)
   End If
   For Each rArea In rRng.Areas
       rArea.Value = rArea.Value
   Next rArea
End Sub