shape color fill control with cell value private sub

[canguest]

I would like to control shape colors to display a dashboard based on cell value resulting from AVERAGE(,,,) formula
My sub works fine with numeric values.
Any suggestions are very much appreciated.
=================================
Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B5")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value > 0.75 Then
ActiveSheet.Shapes("Shape1").Fill.ForeColor.RGB = vbGreen
ElseIf Target.Value < 0.75 And Target.Value >= 0.5 Then
ActiveSheet.Shapes("Shape1").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Shape1").Fill.ForeColor.RGB = vbRed

End If
End If

End Sub

[Pauleyb]

What exactly is broken? You say it works with numeric values and AVERAGE is numeric...

[canguest]

What exactly is broken? You say it works with numeric values and AVERAGE is numeric...

Sub doesn't work if the formula is in the target cell. Cell must have a numeric value for the sub to work, not a calculated value.
Thanks

[Fluff13]

Isnumeric will return true if there is a formula in cell, as long as the formula returns a number.

[Pauleyb]

Okay, that is odd. I just tested some similar code, and my target.value is the calculated value. My < and > tests worked as expected.

Go into the debugger and put a breakpoint on your 'isnumeric' line. When it halts, hover over the text Target.Value with your cursor. What value appears?