Sum up cells in pivotable with interior color vbyellow

[Alpacino]

Hi I want to sum up all the cells in pivottable1 with interior color vbYellow.

The cell interior in cells will change each day.

The range is d9:k15

Want the total sum to go into range("L3")

Does anyone know how to do this??

Thanks in advance

 

[VoG]

If the cells are coloured manually try this http://www.ozgrid.com/VBA/sum-count-cells-by-color.htm

 

[Alpacino]

Thanks VoG sorted it