BET: Microsoft Excel Formatting

Public Sub StartFlashing()
   Application.OnTime EarliestTime:=Now() + TimeSerial(0, 0, 1), _
                      Procedure:="FlashText", _
                      Schedule:=True
End Sub
Public Sub StopFlashing()
   On Error Resume Next
   Application.OnTime EarliestTime:=Now() + TimeSerial(0, 0, 1), _
                      Procedure:="FlashText", _
                      Schedule:=False
End Sub
Public Sub FlashText()
   Static bBoolean As Boolean
   With ActiveWorkbook.Styles("Flash")
      If bBoolean = True Then
         .Font.Color = RGB(255, 255, 255)
         .Interior.Color = RGB(10, 10, 255)
      Else
         .Font.Color = RGB(0, 0, 0)
         .Interior.ColorIndex = xlNone
      End If
   End With

   bBoolean = Not bBoolean
   Application.OnTime EarliestTime:=Now() + TimeSerial(0, 0, 1), _
                      Procedure:="FlashText", _
                      Schedule:=True
End Sub

	It is very easy to create cells that flash using a bit of VBA code.
	The first step is to create a new style called "Flash". Select (Format > Styles) and type "Flash" and press Add.
	This is the style you apply to any cells that you want to flash.
	Lets assume you want to the cells to flash constantly while the workbook is open.
	We need to add the following 2 lines of code to the events "Workbook_Open" and "Workbook_BeforeClose".
	This code needs to be put in the ThisWorkbook code module.

Leading the way in Microsoft Office Development

Excel

How can I create Flashing Text ?

It is very easy to create cells that flash using a bit of VBA code.

The first step is to create a new style called "Flash". Select (Format > Styles) and type "Flash" and press Add.

This is the style you apply to any cells that you want to flash.

Lets assume you want to the cells to flash constantly while the workbook is open.

We need to add the following 2 lines of code to the events "Workbook_Open" and "Workbook_BeforeClose".

This code needs to be put in the ThisWorkbook code module.

Create a new code module and add the following three subroutines.

Flash Text Subroutine

The FlashText subroutine just changes the properties of the Flash style every second to create a flashing effect.