Andy Wiggins wrote...
Sorry, you can't do blinking in Excel.
....
I hate categorically false answers. There's no built-in support, and
it's klunky, but it *IS* possible.
Sub blikningstupidity()
Dim s As Long, dt As Date, ac As Range, sb As Boolean
Dim sls As XlLineStyle, sw As XlBorderWeight, sci As XlColorIndex
Dim bls As Variant, bw As Variant, bci As Variant
bls = Array(xlContinuous, xlDash, xlDot, xlDouble)
bw = Array(xlThin, xlMedium, xlThick)
bci = Array(2, 3, 4, 5, 6, 7, 8)
Set ac = ActiveCell
If ac.Borders.LineStyle = xlNone Then
sb = False
Else
sb = True
With ac.Borders
sls = .LineStyle
sw = .Weight
sci = .ColorIndex
End With
End If
Do 'forever
If ac.Address(External:=1) = ActiveCell.Address(External:=1) Then
With ac.Borders
.LineStyle = bls(s Mod UBound(bls))
.Weight = bw(s Mod UBound(bw))
.ColorIndex = bci(s Mod UBound(bci))
End With
dt = Now + TimeSerial(0, 0, 1)
Do While Now < dt
DoEvents
Loop
s = s + 1
Else
If sb Then
With ac.Borders
.LineStyle = sls
.Weight = sw
.ColorIndex = sci
End With
Else
ac.Borders.LineStyle = xlNone
End If
Set ac = ActiveCell
If ac.Borders.LineStyle = xlNone Then
sb = False
Else
sb = True
With ac.Borders
sls = .LineStyle
sw = .Weight
sci = .ColorIndex
End With
End If
End If
Loop
End Sub
|