איך לגרום לתאי אקסל להבהב ?

Public pNext_blink As Date

Public Sub Blink()
 On Error GoTo Err_Handel
 
 Dim myStyle As Style, Color1 As Variant, Color2 As Variant
 
 Color1 = vbRed
 Color2 = vbYellow
 
 Set myStyle = ActiveWorkbook.Styles("blink")
 
 pNext_blink = Now + TimeValue("00:00:01")
 
 
 If myStyle.Interior.Color = Color1 Then
 myStyle.Interior.Color = Color2
 Else
 myStyle.Interior.Color = Color1
 End If
 
 Application.OnTime pNext\_blink, "Blink"
ExitHere:
 Exit Sub
Err_Handel:
 If Err.Number <> 0 Then
 Err.Clear
 PauseBlinking
 Resume ExitHere
 End If
End Sub

Public Sub PauseBlinking()
 On Error Resume Next
 Application.OnTime pNext\_blink, "Blink", schedule:=False
 ActiveWorkbook.Styles("blink").Interior.Color = xlAutomatic
 If Err.Number <>0 Then Err.Clear
 
End Sub