A few words of thanks would be greatly appreciated.

Excel - A macro to make cells blinks


I want to make a cell blink under Excel. Can this be macro or a simpler way?


-1. Select the cell
-2. Choose Style from the Format menu.
-3. In the Style dialog box, enter a new style name, such as 'Blinking'.
-4. Using the controls in the dialog box, change the style attributes.
-5. Click on OK.

This style can be applied to the cells of your choice.
Now you need to create the macros:
Dim NextTime As Date
Sub StartFlash()
    NextTime = Now + TimeValue("00:00:01")
    With ActiveWorkbook.Styles("Flashing").Font
        If .ColorIndex = xlAutomatic Then .ColorIndex = 3
        .ColorIndex = 5 - .ColorIndex
    End With
    Application.OnTime NextTime, "StartFlash"
End Sub

Sub StopFlash()
    Application.OnTime NextTime, "StartFlash", schedule:=False
    ActiveWorkbook.Styles("Flashing").Font.ColorIndex = xlAutomatic
End Sub
  • To start the blinking, just launch StartFlash
  • To stop it use StopFlash.

This tip is based on http://exceltips.vitalnews.com/Pages/T0214_Flashing_Cells.html

Thanks to Jeff for this tip.

A few words of thanks would be greatly appreciated.

Ask a question
CCM is a leading international tech website. Our content is written in collaboration with IT experts, under the direction of Jeff Pillou, founder of CCM.net. CCM reaches more than 50 million unique visitors per month and is available in 11 languages.


This document, titled "Excel - A macro to make cells blinks," is available under the Creative Commons license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM (https://ccm.net/).