Excel-VBA:Makroausführung bei Zellwertänderung

Hallo,
ich möchte, dass ein Makro ausgeführt wird, wenn sich in einer Zelle der Wert ändert. Der Wert wird mit einer Bildlaufleiste verändert, also ohne direkt in die zelle einzugreifen. Folgendes Makro habe ich gefunden, dies funktioniert aber nur , wenn man die Zelle manuell ändert (mit Doppelklick hinein, anderen Wert eingeben).

Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = „$D$9“ Or Target.Address = „$H$9“ Then
Attention
End If
End Sub

Sub Attention()

If Not Fix(Cells(9, 4) / Cells(9, 8)) Mod 2 0 Then
MsgBox „gerade!“
End If

End Sub

Für Tipps wäre ich sehr dankbar!

André