Make autoshape automatically change color

Hi everyone,
I am currently working on a small project and I need an autoshape to automatically change color based on a cell value. I have an attached example and in this case it's cell B8. B8 sums up data from cell B3:B6. I've created the code, but the autoshape won't automatically change color. I need to double click on B8 and press enter, then the color changes.
Any ideas what might be wrong?

Here's my code:

Please Login or Register  to view this content.

Thanks

It worked like a charm.

Thanks so much,
Amar.