Thread: "BLINK"
View Single Post
  #2  
Old March 7th, 2004, 03:22 AM
Norman Harker
external usenet poster
 
Posts: n/a
Default "BLINK"

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