Ajuda com VB e excel

[Visitante: Makah]

Quero comparar, no Excel 2007 com VB, uma lista de valores com outra lista de valores (as duas na coluna E) o maior numero boto em verde e o menor em vermelho.

Tentei.

Private Sub CompararValor(x, y)

Dim i As Integer
Dim j As Integer

For i = 0 To 8
    dados1 = Range("E" & x + i)
    dados2 = Range("E" & y + i)

    If dados1.Value > dados2.Value Then
        dados1.Select
        With Selection.Font
        .Color = 4

        dados2.Select
        With Selection.Font
        .Color = 10

    Else
        dados1.Select
        With Selection.Font
        .Color = 10

        dados2.Select
        With Selection.Font
        .Color = 4

    End If

End Sub

Problema 1:

Nao sei como transportar esse codigo para o Excel no Excel 2007.

Problema 2:

Gostaria de criar um espécie de botão, mas minha função tem variaveis. tem algum metodo que vocês tem para fazer isso?

[Visitante: Makah]

Ninguem sabe me ajudar?