Sub Макрос3Подсветка()
  Dim DateEnd As Date
  Dim Val_1 As Integer
  Dim Val_2 As Integer
  
  DateEnd = "26.06.2009 9:00:10" 'Дата и время окончания рекурсивной процедуры
  If Now > DateEnd Then Exit Sub ' Проверка и выход из рекурсии
  
  TimVal = ("00:00:02") ' Время через которое происходит рекурсия
  Application.OnTime Now + TimeValue(TimVal), "Макрос3Подсветка" 'рекурсивно запускаем этот же макрос через определенное время
  'здесь наша процедура
   Val_1 = Range("A2").Value 'запомнили предыдущее занчение
   Range("A2").FormulaR1C1 = "=RAND()" 'ввели формулу для возврата случайного числа
   Val_2 = Range("A2").Value 'запомнили настоящее занчение
   
   If Val_1 > Val_2 Then ' Если предыдущее значение больше то,
         With Range("A2").Interior 'делаем ячейку красной
              .ColorIndex =  3 
              .Pattern = xlSolid
         End With
   
   Else ' в противном случае
                        
          With Range("A2").Interior 'делаем ячейку зеленой
               .ColorIndex =  4 
               .Pattern = xlSolid
          End With
   End If

End Sub