Continuando com a resolução dos meus primeiros exercícios em Vba aqui fica mais um:

Elabore um algoritmo que permita Sinalizar as 25 Células que Estão à Direita e Abaixo da Célula Activa que Contenham Números Pares.

Aqui fica o código que resolve o exercício:

Sub MatrixEvenCells()
    Dim c(1 To 5, 1 To 5) As Double
    Dim i As Integer, j As Integer

    ' guardar valores das células na matriz c()
    For j = 1 To 5 ' linha
        For i = 1 To 5 ' coluna
            c(j, i) = ActiveCell.Offset(j - 1, i - 1).Value

          If c(j, i) Mod 2 = 0 Then

            ' fundo vermelho
             ActiveCell.Offset(j - 1, i - 1).Interior.ColorIndex = 3
            ' Texto branco
            ActiveCell.Offset(j - 1, i - 1).Font.ColorIndex = 2
          End If
        Next i
    Next j

End Sub

Não sei se a forma como implementei a resolução do exercício é a mais correcta, e por isso fico à espera de comentários, ou mesmo de correcções e dicas de melhoramento do código que apresento.