ola mais uma vez
desculpa dizer mas mesmo assim nao consegui da maneira como disseste contudo obrigado, no entanto consegui fazer mas apenas conta uma coluna, ver codigo em baixo
Sub cores()
Dim c As Range, rw As Long
For rw = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(rw, 1).Interior.ColorIndex = 35 Then c = c + 1
Next rw
Range("c10") =c
end sub
O codigo faz o seguinte:
pesquisa na coluna A, vai ao ultimo valor e sobe, quando encontrar uma cor "35" conta e sobe+ 1 celula e assim sucessivamente.
a celula c10 = resultado final
Nota: funciona 100% no office 2003 testado por mim