Reference Cell as range().value doesn't work

[cmdrdanno]

Here is my code. It is a simple change shape colour based on cell value. If I put a an actual value for the "Case" statements then it works just fine. Trying to make this more robust by referencing a table/cells and it doesn't update.

If Target.Address = "$F$2" Then
    Select Case Target.Value
        Case Is >= Sheets("working sheet").Range("e2").Value
        
            ActiveSheet.Shapes("Rounded Rectangle 135").Fill.ForeColor.RGB = RGB(0, 230, 104)
            
        Case Is < Sheets("working sheet").Range("e2").Value
        
            ActiveSheet.Shapes("Rounded Rectangle 135").Fill.ForeColor.RGB = RGB(255, 0, 0)
           
    End Select