如何使excel表格中文字闪烁，敬请高手指点，谢谢！

使用OnTime函数做一个代码，每秒钟自动执行一次，每次执行的时候改变文字颜色就能实现闪烁效果，只是由于EXCEL的这个函数只能设定最小1秒钟，所以闪烁效果不太理想。
请看下面代码
Dim NextTime
Dim s
Sub 计时()
Set a = Range("a1") '在A1单元格中产生闪烁效果
If a.Font.ColorIndex = 3 Then
a.Font.ColorIndex = 2 '无色
Else
a.Font.ColorIndex = 3 '红色
End If
NextTime = Now + TimeValue("00:00:01")
Application.OnTime NextTime, "计时"
End Sub

Sub 停止()
On Error Resume Next
Application.OnTime NextTime, "计时", , False
End Sub

先执行“计时”，就会看到A1单元格的内容以1秒为间隔在红色与无色之间变换。
需要结束闪烁时，就执行“停止”