flashing cells for just a few seconds.
 

Hi,

Does anybody know how i can change the color in a cel to e.g.
green, yellow, purple, blue, white and circulate that for a few seconds
and that after let's say 3 seconds the cel or cells get 1 color. Sort
of a flashing cel.

Thx



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

flashing cells for just a few seconds.
 

Try this, it may not be the good code or fastest code but seems work

Sub FlashColor()
Dim PauseTime, Start
Dim myColour As Integer
PauseTime = 0.05263
myColour = 0
Do Until myColour = 57
Start = Timer
Do While Timer < Start + PauseTime
With Selection.Interior
.ColorIndex = myColour
End With
Loop
myColour = myColour + 1
Loop
Selection.Interior.ColorIndex = 0
End Sub


"solo_razor" wrote in message
...
Hi,

Does anybody know how i can change the color in a cel to e.g.
green, yellow, purple, blue, white and circulate that for a few seconds
and that after let's say 3 seconds the cel or cells get 1 color. Sort
of a flashing cel.

Thx



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

flashing cells for just a few seconds.
 

solo_razor wrote in message ...
Hi,

Does anybody know how i can change the color in a cel to e.g.
green, yellow, purple, blue, white and circulate that for a few seconds
and that after let's say 3 seconds the cel or cells get 1 color. Sort
of a flashing cel.

Thx



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

Change this to suit:

Sub circ()

For i = 1 To 5
Range("a1").Interior.ColorIndex = 6
Call pauseit
Range("a1").Interior.ColorIndex = 7
Call pauseit
Range("a1").Interior.ColorIndex = 8
Call pauseit
Next

Range("a1").Interior.ColorIndex = 8

End Sub

Sub pauseit()

For i = 1 To 200000
Next

End Sub