Hi, I developed a macro to change shapes colors based on the value of a cell. Originally I wrote this code
ActiveSheet.Shapes.Range(Array("Col")).Select
If Range("D69") = "0" Then
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(127, 127, 127)
ElseIf Range("D69") = "1" Then...