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 & "'! StartBlink",, True
End Sub
Note that you should copy the above code into Notepad and then edit it again The position of the cell and the working Sheet is the position of the text you want to create the flash effect. In the text that is written in cell A1 and in Sheet 1. Users can enter any cell and Sheet that they want.
Press Alt + Q to turn off the dialog box.
Step 3:
In the correct position of the cell and Sheet in the code you have created, enter the content you want to create a flashing effect on Excel.
Click on the Developer tab and then select the Insert item below and click on the Button (Form control) icon .
Step 4:
Draw any square in the Excel interface to make the button activate the blinking effect for the word.
Once you release the mouse button, the Assign Macro dialog box will display. Here the user will need to select 2 items:
Click OK to save the settings.
Step 5:
To change the text in the new frame, right-click and choose Edit Text .
Enter any content you want into this frame and press Enter to save it. If you want, users can still change the font, the font size for this Button.
The end result when clicking on that button will automatically flash the text according to the color we have set in the code, here is red and white.
In case you want the word flashing green to red, click on the Developer tab and select Visual Basic .
Next change from white (White) to blue (Blue) in the code as shown below. Also press Alt + Q to save this new code.
The word results will flash from red to blue.
Through VBA in Excel, you have added a way to create content highlighting in the data with an automatic blinking effect. Note that we need to enter the correct code, especially the brackets in the code, to avoid error after applying the code.
I wish you all success!