MsgBox Question
 

Hi All,

I would like a message box to appear if the contents of a certian cell is
less than 0.17.

The code I wrote to do this is given below:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target(1), Me.Range("j39")) Is Nothing Then Exit Sub
If Target(1).Value < 0.17 Then
MsgBox ("Error - Minimum Circ must be 17%. Call for Quote")
End If
End Sub

This works if I manually enter the value into cell j39, but I would like
cell J39 to update via a formula. For example, the formula in cell J39 is:
=g39/d39.

A series of check boxes and drop down boxes are used to select the
quantities in cells G39 and J39.

Any insights would be greatly appreciated.

Thank you.

Chris