Excel - Съвет за копиране стойностите на оцветени клетки

[milenk]

Използвам Excel 2003. Имам работещ макрос за смяна цвета на клетки в зависимост от цветовия им индекс. Работи без проблеми.

SubChangeColor()
Dim cell As Range
For Each cell in Range("E8:AM175")
If cell.Interior.ColorIndex < 0 Then
'Тук да копира ( или маркира) стойностите на клетките само които са с цвят < 0 
cell.Interior.ColorIndex = 3 


End If
Next cell
End Sub

Как да се преработи ? Или с други думи макрос за да се копират стойностите на клетки - Range("E8:AM175") които са с цвят < 0