Macro para colorir os numeros pares ou impares de uma planilha

[??em??]

Boa tarde :blink:

Sou novo no forum e em macros !!

preciso da ajuda de vocês, estou com uma planilha com mais de 15.000 valores e preciso pintar os pares ou os impares para

distinguir alguns valores, alguém sabe como fazer isso e se isso é possivel.

Até aqui fico grato com quem puder ou tentar me ajudar!!!

[lobismano]

Testa ai.

Sub pinta()

Dim p As Worksheet

Set p = Plan1 'define a planilha a ser usada

For a = 1 To 65535 'qtd de linhas a percorrer

For b = 1 To 255 'qtd de colunas a percorrer

If p.Cells(a, B).Value Mod 2 <> 0 Then

p.Cells(a, B).Interior.ColorIndex = 4 ' cor verde

End If

Next

Next

End Sub

at.