<deitbe@consumer.org>De: Bernie Deitrick 
Objet: Re: Is it possible to make a cell "blink" ?
Date : lundi 25 octobre 1999 17:34

Rudi,

You can modify this to meet your needs.

HTH, Bernie

From EEE002  VBA CODE EXAMPLES Created by Bill Manville

'to create a blinking cell:
'if you define a new Style (format / Style / Flash/ add ) and apply
'that style to the cells you want to flash, paste the following code
'into a module sheet and run the procedure Flash from Auto-Open if
'desired you will get the text flashing alternately white and red.
'
dim nextTime As Date

Sub Flash()
  nextTime = Now + Timevalue("00:00:01")
  with activeworkbook.Styles("Flash").Font
    if .ColorIndex = 2 then .ColorIndex = 3 Else .ColorIndex = 2
  end with
  application.OnTime nextTime, "Flash"
end Sub

Sub StopIt()
  application.OnTime nextTime, "Flash", schedule:=false
  activeworkbook.Styles("Flash").Font.ColorIndex = xlAutomatic
end Sub


Rudi Rynders wrote:

> Hi, all
> What I mean here is, can a cell be made to alternate background color
> every (n) seconds?  Or else , alternately display zero/one ?
> TIA
> Rudi topaz