Comparação de valores

[btsperate]

Hey pessoal, eu preciso de ajuda para implementar um código.

Eu preciso realizar a formatação de celulas com determinado valores.

Ex:

Contrato 3997; pinta amarelo

Contrato 3998; não pinta.

Estilo formatação condicional, só que eu já tenho um código quase pronto e gostaria de usa-lo segue o mesmo.

Private Sub PintaContrato()

Dim Celula

Dim i As Integer

Dim Contrato(5) As Integer

Dim MinhaFaixa As Range

Set MinhaFaixa = Range("C2:R18")

Set Celula = MinhaFaixa.Cells

Contrato(1) = "3997"

Contrato(2) = "3998"

Contrato(3) = "3999"

Contrato(4) = "4000"

Contrato(5) = "6900"

For i = 1 To 5

If MinhaFaixa.Value = Contrato(i) Then

Celula.Interior.CollorIndex = 6

End If

Next

End Sub

Uma coisa eu percebi eu estou atrelando a variavel minhaFaixa.cells a Celula, e estou pedindo para ela ser pintada, mas variavel celula ela esta setada como a Range, e é isso que ocorre a macro pinta a range. só que eu não consigo criar uma forma para ele pintar os valores da matriz dentro da range.