Как заставить макрос передавать текущий цвет УФ - реальному цвету ячейки - VBA

Формулировка задачи:

Здравствуйте. Помогите решить техническую задачу. На листе находится диапазон с условным форматированием (столбцы E-K). При определенных значениях ячеек - они меняют свой свет, как это задано условным форматированием. Но они меняют именно "цвет условного форматирования". Реальный цвет самой ячейки - не меняется. Подскажите - как макросом - заставить ячейки получать окраску своего реального цвета - в соответствии с тем цветом условного форматирования, которое ячейка имеет в настоящее время ? (Событие Worksheet_Calculate) То есть если в настоящий момент - цвет ячейки желтый, то и реальный ее цвет должен становится желтым. Сейчас на листе - при разных условных форматах - реальный цвет ячейки не меняется (стоит цвет "нет заливки").

Решение задачи: «Как заставить макрос передавать текущий цвет УФ - реальному цвету ячейки»

textual
                            Листинг программы 
                        

                            Sub Перекрасить_ячейки_в_текущий_цвет_условного_форматирования()
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In ActiveSheet.UsedRange.Cells
        If c.FormatConditions.Count > 0 Then
           c.Interior.color = c.DisplayFormat.Interior.color
        End If
    Next
    Application.ScreenUpdating = True
End Sub
 
Private Sub Worksheet_Calculate()
     Перекрасить_ячейки_в_текущий_цвет_условного_форматирования
End Sub
                        