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

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