Formatação condicional via VBA

Bom dia a todos,

Começo por pedir desculpa por colocar esta dúvida aqui, mas estou mesmo sem soluções... e parece-me um problema fácil de resolver para os peritos em VBA.

Tenho este código que funciona há anos no excel 2003, mas não tenho conseguido por nada colocar a funcionar no excel 2007.

Código:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("B12:AL36")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target.Cells) Then Exit Sub
Cancel = True
With Target.Cells
        
    If .Interior.ColorIndex = xlNone Or .Interior.ColorIndex = 2 Then
    
        .Interior.ColorIndex = 4
        .FormatConditions(1).Interior.ColorIndex = 4
    
    Else
    
        .Interior.ColorIndex = xlNone
        .FormatConditions(1).Interior.ColorIndex = 15

    End If
End With
End If
End Sub

O erro é nas linhas:

Código:

.FormatConditions(1).Interior.ColorIndex

Ficaria mesmo muito agradecido se conseguir uma solução.

Obrigado

Tópico movido para off topic por não se tratar de VBA Access.

Lembre-se: este fórum é voltado para VBA Access, está buscando ajuda para VBA Excel.