Msg Box Needed For Cell Value In Range

I am trying to get a MsgBox to appear if the cell value within a given range exceeds a certain number value in my case "8". The only issue I am experiencing is that the code seems to take into account any input from any cell, not just the range specified, and additionally since there are 7 columns in the range the MSgBox pops up 7 times, and I need it only once and if the cell value exceeds "8" only when input.

ideally i would like to do a named range as there as there is a block of data where this will need to repeat.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cell As Range

With ActiveSheet
For Each cell In Range("J40:P40")

If cell.Value [A35].Value Then
MsgBox "Red Cell cannot exceed 8 hours per shift. Please correct this."
End If
Else

End If
Next
End With
End Sub