Change Shape Color based on date

Hello, help please!

I want to create a code that reads the date in a cell (example "CA25") and changes the color of a shape "Bin R1" according to the following:
if the cell is blank = shape color RGB (91,155,213)
if the date in the cell is today and forward = shape color RGB (27,27,27)
if the date in the cell is yesterday and before = shape color RGB (255,0,0)

I have 76 shapes/bins that I need to use this code for. Is it possible to create a code for all 76 in one if each bin has a cell equivalent and shape name?

Hello,
I'm getting this error message Attachment 761078 which directs me to this Attachment 761079

sorry that question was directed to michson.

I found a work around!

I just conditionally formatted the cells and linked the display of the shape to the cell display.



Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Shapes("Cube 1").Fill.ForeColor.RGB = ActiveSheet.Range("CA25").DisplayFormat.Interior.Color

End Sub