Message box macro not working

[SCOTTWHITTAKER2333]

I have a macro for a new wt. form that I want to display a message if a range is below a negative value of another cell. But I can't seem to get it to work. I think the problem is in the part that I highlighted in red below. This is what I have:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

'
' hold box Macro
' Macro recorded 5/28/2010 by SCOTT.WHITTAKER
'
'
If (Range("F50:Y68").Value < 0 - Range("H14")) Then
MsgBox "Product has failed Individual Weights, All product must be held from last acceptable check until next acceptable check. Please click the remove button for the affected Group to remove the affected check from the final average."

End If
End Sub

 

[Andrew Poulsom]

Where is the data entered?

By the way I'm in the UK so my post was at 08:37.

 

[SCOTTWHITTAKER2333]

The Data is entered in cells A8:A106 and C8:C106

 

[SCOTTWHITTAKER2333]

I don't know if it matters but also cells B8:B106 and D8:D106 have set content that never changes.

 

[Andrew Poulsom]

Try something like this in the module for the worksheet you want to monitor:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cell As Range
    If Application.Intersect(Target, Union(Range("A8:A106"), Range("C8:C106"))) Is Nothing Then Exit Sub
    For Each Cell In Range("F50:Y68")
        If Cell.Value < Range("H14").Value Then
            MsgBox "Product has failed Individual Weights, All product must be held from last acceptable check until next acceptable check"
            Exit Sub
        End If
    Next Cell
End Sub

 

[SCOTTWHITTAKER2333]

Thankyou That works exactly the way I wanted it too. Thanks again!!!!