Hello All! I've been hunting around for a solution and can't find exactly what I need. Any help on this would be greatly appreciated.
I'm trying to change the fill color of a shape based on the value of a cell. I've achieved this by using a Worksheet_Change Event, but when the referenced Rang Cell contains a formula linking it to another sheet (=sheet2!E2) it no longer works.
My Source will need to come from a different Sheet, and cannot be on the same sheet as the shape. Thanks!
I'm trying to change the fill color of a shape based on the value of a cell. I've achieved this by using a Worksheet_Change Event, but when the referenced Rang Cell contains a formula linking it to another sheet (=sheet2!E2) it no longer works.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Range("E55") >= Range("E53") Then
ActiveSheet.Shapes("MeRev").Fill.ForeColor.RGB = RGB(64, 64, 64)
Else
ActiveSheet.Shapes("MeRev").Fill.ForeColor.RGB = RGB(192, 80, 77)
End If
Application.ScreenUpdating = True
End Sub