Signalton
Stefan
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
If Target.Value > 100 Or Target.Value < -100 Then
Beep
End If
End If
End Sub