Note: The other languages of the website are Google-translated. Back to English
English English

How to blink or flash text of specified cell in Excel?

For making a certain cell outstanding in your worksheet, how about blinking the text of this cell? This article will show you method of blinking the text of a specified cell in Excel.

Blinking or flashing text of specified cell with VBA code


Blinking or flashing text of specified cell with VBA code

Please do as follows to blink the text of a specified cell in Excel.

1. Press Alt + F11 keys simultaneously to open the Microsoft Visual Basic for Applications window.

2. In the Microsoft Visual Basic for Applications window, click Insert > Module. Then copy and paste the following code into the Code window.

VBA code: Blinking text of specified cell in Excel

Sub StartBlink()
'Updated by ExtendOffice 20181010
    Dim xCell As Range
    Dim xTime As Variant
      On Error Resume Next
    Set xCell = Range("Sheet2!A1")
  On Error Resume Next
   
        If xCell.Font.Color = vbRed Then
            xCell.Font.Color = vbWhite
        Else
            xCell.Font.Color = vbRed
        End If
    xTime = Now + TimeSerial(0, 0, 1)
    Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub

Note: in this VBA code, Sheet2 and A1 indicate the text in cell A1 of Sheet2 will be blinked in current workbook.

3. Press the Alt + Q keys simultaneously to close the Microsoft Visual Basic for Applications window.

Now you need a button to start and stop the blinking.

4. Click Developer > Insert > Button (Form Control). See screenshot:

5. Draw a button in your worksheet, then an Assign Macro dialog box pops up, please click StartBlink in the Macro name box, and then click the OK button. See screenshot:

6. Right click the inserted button, and click Edit Text from the right-clicking menu. Then change the button text to the text you need such as Start / Stop Blinking.

From now on, when clicking on the button, the text of cell A1 starts blinking. And when clicking on the button again, the text of cell A1 stops blinking.


The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Comments (26)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This code will not stop the blinking it get stuck. What am I doing wrong?
This comment was minimized by the moderator on the site
Could this blinking text be applied to a condition. i.e. if a date is reached or is approaching on one worksheet, a cell on a cover/menu sheet flashes
This comment was minimized by the moderator on the site
How can it make a random cell blink in a certain range?
This comment was minimized by the moderator on the site
Working... Great
This comment was minimized by the moderator on the site
How do I include this code in the following so I don't need buttons but the blinking starts automatically on the workbook opening?

Private Sub Workbook_Open()

' code here

End Sub
This comment was minimized by the moderator on the site
Hi Dayle,
Please put this code into the ThisWorkbook window.

'Put in“ThisWorkbook”window
Private Sub Workbook_Open()
StarBlink
End Sub

Put the below code into the Module window. And then save the workbook as an Excel Macro-enabled Workbook. Hope I can help. Thanks for your comment.

'Start blinking
Sub StarBlink()
Dim xCell As Range
Dim xTime As Variant
Set xCell = Range("A1")
With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
If xCell.Font.Color = vbRed Then
xCell.Font.Color = vbWhite
Else
xCell.Font.Color = vbRed
End If
End With
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "" & ThisWorkbook.Name & "!StarBlink", , True
End Sub
'Stop blinking
Sub StopBlink()
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime EarliestTime:=xTime, Procedure:="" & ThisWorkbook.Name & "!StarBlink", Schedule:=False
End Sub
This comment was minimized by the moderator on the site
Hi,
it's working well but when I am protecting my sheet then blinking is not working showing debug msg.
This comment was minimized by the moderator on the site
Good day,
Please try the following code.

Sub StartBlink()
Dim xCell As Range
Dim xTime As Variant
On Error Resume Next
Set xCell = Range("A1")
On Error Resume Next

If xCell.Font.Color = vbRed Then
xCell.Font.Color = vbWhite
Else
xCell.Font.Color = vbRed
End If
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub
This comment was minimized by the moderator on the site
Working. good
But after protecting my sheet LOCK & Hidden ( except blinking cell ) it's not working.
Anyone plz help me solve this issue.
This comment was minimized by the moderator on the site
MANTEB GAN
This comment was minimized by the moderator on the site
How do i change this to sheet 1?
This comment was minimized by the moderator on the site
Hi Sam,
If you want to make cell A1 in Sheet1 or other specific worksheet blinking, please add "Sheet1!" or other worksheet name before the cell address. See the below code line:

Set xCell = Range("Sheet1!A1")
This comment was minimized by the moderator on the site
hi, i need help in google sheets..

I need an entire row to blink if F3:F1001 contains the "STAT". the entire row should be in orange but also blinking until the the column W3:W1001's checkbox is ticked.

is it possible? can you help? pleaseeeeeeeeeeeeeee
This comment was minimized by the moderator on the site
Hi mekka,
Sorry can't help you with that. Thank you for your comment.
This comment was minimized by the moderator on the site
when protect the sheet this code not working
This comment was minimized by the moderator on the site
not working,

Please help
This comment was minimized by the moderator on the site
how to make flashing specific cell containing specific Text only ?
This comment was minimized by the moderator on the site
how can i create flash blink for my time sheet .where the cell contain time above 10 hours .please suggest
This comment was minimized by the moderator on the site
Hi jass,
The following VBA code may solve your problem. Please give it a try.
Don't forget to change the sheet name and the hours range in the code.

Sub StartBlink()
'Updated by ExtendOffice 20220707
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Set xCell = Range("'blinking cells'!D2:E27") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
For Each xRg In xCell
If xRg >= TimeValue("10:00:00") Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink", , True
End Sub
This comment was minimized by the moderator on the site
Hi I need to do the same for the duplicate cell value in selected column where cell value will blink if the duplicate value appeared in excel
This comment was minimized by the moderator on the site
Hello,
I am looking for solution to flash / blink a range of cells approaching a future date, say in one week. I mean something like a purchase order delivery date is 30 August. I would like to start flashing the cells by 25th August onwards and even after 30 August till it is delivered.
Can someone give me a solution?
Thank you,
Sanjeev.
This comment was minimized by the moderator on the site
Hi Sanjeev Raghavan,
The following VBA code can do you a favor. In the code, you need to change Sheet5!D2:D5 to the sheet name and the range you want to blink.

Sub StartBlink2()
'Updated by ExtendOffice 20220830
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Dim xToday
Set xCell = Range("Sheet5!D2:D5") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
xToday = Now()
For Each xRg In xCell
If (xRg - xToday > -1) And (xRg - xToday <= 5) Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink2", , True
End Sub
This comment was minimized by the moderator on the site
Thank you Crystal. Let me try and get back to you.
This comment was minimized by the moderator on the site
Sheet name Summary and column O

i would like to have a code to make the cell flash red/white on due date. Can someone please help?
This comment was minimized by the moderator on the site
is it possible to make it without a button and auto ran?
This comment was minimized by the moderator on the site
Hi Malek,
The user Sanjeev Raghavan asked a question similar to yours, you can check the replies and see if it solves your problem.
@Sanjeev Raghavan
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations