Zelle blinken lassen, ohne dass Cursor drauf steht

Grüße an Euch Freaks,
Bernd

Sub Blinken()
Nochmal = Now + TimeValue("00:00:01")
With ActiveCell.Interior
If .ColorIndex = 2 Then .ColorIndex = 4 Else .ColorIndex = 2
End With
Application.OnTime Nochmal, "Blinken"
End Sub

Sub BlinkenStop()
Application.OnTime Nochmal, "Blinken", schedule:=False
ActiveCell.Interior.ColorIndex = xlColorIndexNone
End Sub