Change shape fill color depending on cell value

Hi guys,

(newbie vba)
I've been searching the web for the following issue (I just cannot seem to get it to work):

I've got two shapes in which I want the color to change depending on a drop down list Open/closed.

If valve_1 has status "Open" then that corresponding valve is to be filled with green.
If it is "Closed" it is to be red.
The same for Valve 2.

I have uploaded what I've got so far on the basis of an example I have found online, but it just does not work.

Any help much appreciated.