Message-ID: <381486A2.F143597D@consumer.org><deitbe@consumer.org>
Date: Mon, 25 Oct 1999 12:34:42 -0400
From: Bernie Deitrick 
X-Mailer: Mozilla 4.61 [en] (Win98; U)
X-Accept-Language: en
MIME-Version: 1.0
Subject: Re: Is it possible to make a cell "blink" ?
References: <3814849A.FA9EC8B9@concentric.net>
Content-type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Newsgroups: microsoft.public.excel.misc
NNTP-Posting-Host: consumer.org 206.3.114.5
Path: cppssbbsa01.microsoft.com!cppssbbsa04
Lines: 26
Xref: cppssbbsa01.microsoft.com microsoft.public.excel.misc:61812

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