VBA 点滅させる

標準モジュールに以下入力
Sub Blink()

  Const ColorIdx1 = 37

  Const ColorIdx2 = xlColorIndexNone

If Worksheets("Sheet1").Range("A1").Interior.ColorIndex = ColorIdx1 Then

    Worksheets("Sheet1").Range("A1").Interior.ColorIndex = ColorIdx2

    Worksheets("Sheet1").Range("A2").Interior.ColorIndex = ColorIdx1

Else

    Worksheets("Sheet1").Range("A1").Interior.ColorIndex = ColorIdx1

    Worksheets("Sheet1").Range("A2").Interior.ColorIndex = ColorIdx2

End If

    Application.OnTime Now + TimeValue("00:00:01"), "Blink"

End Sub

次にThisWorkBookに以下入力
Private Sub Workbook_Open()
　Blink
End Sub

Blinkを実行してください。

Sheet1のA1セルとA2セルが交互に点滅します。