If you open up the visual basic editor and place the following code under "This Workbook", it will do what you want.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Static price As Double
If Range("d3") > price Then
Range("d3").Interior.Color...