Makro soll nach Eingabe laufen

ich möchte eine Eingabeüberprüfung für die Zelle A1 programmieren, so in etwa:

Sub Makro1()
Range("A1").Select
If ActiveCell.Value > 8 Then _
MsgBox "Zahl ist zu groß"
End Sub

Wie mache ist es jetzt, daß dieses Makro immer nach der Eingabe einer Zahl in Zelle A1 läuft und man nicht erst eine Schaltfläche o.ä. betätigen muß?

MfG Alex