Blinking cells

  • Thread starter Thread starter Pointer
  • Start date Start date
Hi
though this is possible with some VBA code (using the OnTime method) I
really would recommend NOT to use such things:
- it will slow down Excel (due to the use of the OnTime method)
- personally I think blinking cells shouldn't be a part of a
spreadsheet

If you need this you may search the Google archives for "Excel blinking
cells"
 
Hi Pointer!

Much requested but much derided in terms of both annoyance to users
and the performance sucking potential. Microsoft have yet to punish us
with adding this formatting option.

At least this approach only flashes a few times and only if there's a
change to the offending cell.

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

But don't do it unless you are really into annoying people who use the
workbook.
 
Back
Top