Guten Tag,  ich finde hier den Fehler nicht.

Könntet Ihr mir behilflich sein ?

If IfSheet1.Range("H1").Value > 1 Then
    ActiveSheet.Shapes.Range(Array("Oval 3")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0.6699999571
        .Solid
    End With
End If