Thread: "BLINK"
View Single Post
  #3  
Old March 7th, 2004, 07:00 PM
Ray
external usenet poster
 
Posts: n/a
Default "BLINK"


-----Original Message-----
Hi!

Newbie question? If you really must do this you need to

use VBA
because, praise be to Microsoft, this feature hasn't

been introduced.

Here's a sample of code that goes in the Sheet Module:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("MyFlashCell")) Is Nothing

Then Exit Sub
Dim n As Integer
Dim NextTime As Date
If Range("MyFlashCell").Value 7 Then
For n = 1 To 5
With Range("MyFlashCell").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex

= 2
End With
With Range("MyFlashCell").Interior
If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex

= 3
End With
Application.Wait Now + TimeValue("00:00:01")
Next
End If
With Range("MyFlashCell")
..Font.ColorIndex = 3
..Interior.ColorIndex = 2
End With
End Sub


--
Regards
Norman Harker MVP (Excel)
Sydney, Australia

Excel and Word Function Lists (Classifications, Syntax

and Arguments)
available free to good homes.
"Ray" wrote in

message
...
newbie question;

Payroll in excell, is there a way to make a specific

cell
containing a date "blink" or flash?
Any help would be appreciated.


Ray



.
Thanks Norman, think its time for ms to make that

feature available more easily. grin!