Olá galera,

Estou fazendo uma macro para o trabalho, e preciso de uma macro em que altero a cor da linha toda dependendo do valor da celula da primeira coluna. Gostaria de ir alterando entre duas cores, para não ficar muito colorido. A grande questão é: As linhas estão ordenadas, e gostaria que as linhas onde a primeira célula fosse de mesmo valor tivessem a mesma cor. Envio em anexo um modelo da planilha e o resultado esperado da macro. Abaixo um código preliminar que fiz.

O valor de "p" já está definido em outro momento do código como a última coluna da planilha, e "i" é a última linha.
Sei que este código está errado!!

Dim palavra As String
Dim z As Integer
z = 2

Cells(z, 1).Activate

palavra = ActiveCell.Value

ActiveSheet.Range(Cells(z, 1), Cells(z, p)).Select

Selection.Interior.ColorIndex = 1

z = z + 1

Do Until z > i

Cells(z, 1).Activate

If ActiveCell.Value = palavra Then

ActiveSheet.Range(Cells(z, 1), Cells(z, p)).Select

Selection.Interior.ColorIndex = 1

Else

palavra = ActiveCell.Value

ActiveSheet.Range(Cells(z, 1), Cells(z, p)).Select

Selection.Interior.ColorIndex = 2
End If

z = z + 1

Loop

Abs,
Barbosa