ExcelVBAでセルが更新されたら点滅させる

ExcelVBA 
Dim a_cell As Variant
Private Sub Worksheet_Calculate()
　If a_cell = "" Then
　　a_cell = Cells(1,1).Value　　　　　　　'セルに初期値が入っていない時に代入
　　Exit Sub　　　　　　　　　　　　　　　　　'１回目だけは、そのまま抜ける
　End If
　If a_cell <> Cells(1, 1).Value Then　　　　　'セル値が変化した時のみ動作
　　Cells(1, 1).Interior.Pattern = xlNone　　　　　　'セル色なし
　　Application.Wait(Now + TimeValue("0:00:01"))　　'１秒待つ
　　Cells(1, 1).Interior.Color = RGB(256, 0, 0)　　　'セル色赤
　　Application.Wait(Now + TimeValue("0:00:01"))　　'１秒待つ
　　Cells(1, 1).Interior.Pattern = xlNone　　　　　　'セル色なし
　　Application.Wait(Now + TimeValue("0:00:01"))　　'１秒待つ
　　Cells(1, 1).Interior.Color = RGB(256, 0, 0)　　　'セル色赤
　　Application.Wait(Now + TimeValue("0:00:01"))　　'１秒待つ
　　Cells(1, 1).Interior.Pattern = xlNone　　　　　　'セル色なし
　　a_cell = Cells(1,1).Value　　　　　　　　　　　　　'セル値を更新
　End If
End Sub

ネタ元