funziona in maniera egregia, non hai più scuse
Codice:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, Rg As Range
On Error Resume Next
Set Rg = Application.Intersect(Target, Range("A1:C7"))
If Not Rg Is Nothing Then
For Each xCell In Rg
If xCell.Value < "6" Then
MsgBox "nella cella " & xCell.Address, vbInformation, "ATTENZIONE!!!"
Exit Sub
End If
Next
End If
End Sub