Bom dia a todos!

Sou novo por aqui e espero poder contar com a ajuda de vcs!
Pessoal, tenho uma planilha em excel onde cadastro meus funcionários em 3 gerencias diferentes, e emito seus crachás.
No layout do crachá eu inclui 3 autoformas "elipse" que muda a cor de acordo com a gerencia solicitada da seguinte forma:
Ex.: ○ ○ ○

Não planilha existem 3 células (uma para cada gerencia) que recebe "SIM" ou "NÃO"
Compras | RH | GG
Sim/não | Sim/não | Sim/não
○ ○ ○

Se ele é da gerência de compras a célula estará como "sim" e a elipse fica azul, se estiver como "não" a elipse fica branca. E assim pra as outras 2 condições.

No office 2010 eu uso o seguinte código para fazer isso acontecer:

Sub Farol_1()

If Range("D47").Value = "SIM" Then

ActiveSheet.Shapes.Range(Array("Oval 2")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 127, 255)
.Transparency = 0
.Solid
End With

ElseIf Range("D47").Value = "NÃO" Then

ActiveSheet.Shapes.Range(Array("Oval 2")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 255)
.Transparency = 0
.Solid
End With

End If

End Sub

Só que quando eu abro essa planilha no office 2007 acontece um erro 1004 na linha "ActiveSheet.Shapes.Range(Array("Oval 2")).Select"

Gostaria de saber se tem como eu mudar essa condição para que ela funcione nos 2 offices ou pelo menos no 2007, pq no 2010 roda tudo tranquilo e sem erros.

Abraço!