[misterx]

funziona in maniera egregia, non hai più scuse

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