Worksheet_Change

[luciano]

Una forma

acá chequea en la columna 2

Código:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 2 Then
   If Target.Value > 10 Then
      MsgBox "Valor no valido", vbCritical
   End If
End If

End Sub