Warning box if range value > 0

[MPBJR]

I need a message box to pop up if the value of one of the cells on a sheet is greater than 0. The range is B3 to B7. Now I have 5 different sheets in this work book, so lets say on sheet 1 the value of the range is gretaer than 0, I need a pop up box that says "check sheet 1". And if on sheet 2, same affected range is greater tham 0, then a pop up box that says "check sheet 2". (These sheets are updated based on values from a different workbook)

Here is a sample code I was trying to work with, placed in the "ThisWorkbook" location. (I think that's the correct place to put this??)

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("SH 5").Select
If (Range("B3:B7").Value > 0) Then
    MsgBox "Check sheet 5"
End If
End Sub

 

[mole999]

Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("SH 5").Range("B3:B7").Value > 0) Then   MsgBox "Check sheet 5"
End Sub

I think that could work

 

[MPBJR]

I can't get it to work, if I post it in a macro to run, I get an error.
I changed the range to only B5 where I know the value is "1", and it worked.
So I'm assuming it's having trouble adding the range B3:B7....
Not sure if there should be an extra step in there to add the range???

Thanks

 

[mole999]

I must be mad, i'm sure there is a better way of doing this

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Sheets("SH 5").Range("B3:B7").Value > 0 Then   MsgBox "Check sheet 5"
End Sub