Problemet löst. Gjorde en enkel variant med ett makro som jag ska slipa vidare på. Men det funkar.

If Range("I7").Value > 0 Then

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

Else

Sheets("Start").Select
ActiveSheet.Shapes.Range(Array("Cirkel 1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 176, 80)
.Transparency = 0
.Solid
End With

End If